# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1265785063 -3600
# Node ID ba373aea03d9742661a04802beba669046869b17
# Parent  c1246f17119eee49eb0103b00d018d23cf616263
remove islist

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-10  Jaroslav Hajek  <highegg@gmail.com>
+
+	* general/private/__isequal__.m: Remove list-related stub.
+
 2010-02-09  John W. Eaton  <jwe@octave.org>
 
 	* image/imshow.m: Allow logical values for images.
diff --git a/scripts/general/private/__isequal__.m b/scripts/general/private/__isequal__.m
--- a/scripts/general/private/__isequal__.m
+++ b/scripts/general/private/__isequal__.m
@@ -56,12 +56,6 @@
 
   ## Generic tests.
 
-  ## Give an error for a list (that will make the code simpler and lists
-  ## are deprecated anyway.
-  if (islist (x))
-    error ("__isequal__: list objects are deprecated and cannot be tested for equality here; use cell arrays instead");
-  endif
-
   ## All arguments must either be of the same class or they must be
   ## numeric values.
   t = (all (strcmp (class(x),
diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
+2010-02-10  Jaroslav Hajek  <highegg@gmail.com>
+
+	* ov-base.h (octave_base_value::is_list): Remove.
+	* ov.h (octave_value::is_list): Remove.
+	* data.cc (Fislist): Remove.
+	* oct-stream.cc (printf_value_cache::printf_value_cache): Don't call
+	is_list.
+
 2010-02-10  Jaroslav Hajek  <highegg@gmail.com>
 
 	* ov-str-mat.h (octave_char_matrix_str::is_real_type): Delete
diff --git a/src/data.cc b/src/data.cc
--- a/src/data.cc
+++ b/src/data.cc
@@ -3327,22 +3327,6 @@
   return retval;
 }
 
-DEFUN (islist, args, ,
-  "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {} islist (@var{x})\n\
-Return nonzero if @var{x} is a list.\n\
-@end deftypefn")
-{
-  octave_value retval;
-
-  if (args.length () == 1)
-    retval = args(0).is_list ();
-  else
-    print_usage ();
-
-  return retval;
-}
-
 DEFUN (ismatrix, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ismatrix (@var{a})\n\
diff --git a/src/oct-stream.cc b/src/oct-stream.cc
--- a/src/oct-stream.cc
+++ b/src/oct-stream.cc
@@ -2387,8 +2387,7 @@
       {
 	octave_value val = values(i);
 
-	if (val.is_map () || val.is_cell () || val.is_object ()
-	    || val.is_list ())
+	if (val.is_map () || val.is_cell () || val.is_object ())
 	  {
 	    gripe_wrong_type_arg (who, val);
 	    break;
diff --git a/src/ov-base.h b/src/ov-base.h
--- a/src/ov-base.h
+++ b/src/ov-base.h
@@ -352,8 +352,6 @@
 
   virtual bool is_cs_list (void) const { return false; }
 
-  virtual bool is_list (void) const { return false; }
-
   virtual bool is_magic_colon (void) const { return false; }
 
   virtual bool is_all_va_args (void) const { return false; }
diff --git a/src/ov.h b/src/ov.h
--- a/src/ov.h
+++ b/src/ov.h
@@ -276,7 +276,7 @@
   octave_value (const Range& r);
   octave_value (const Octave_map& m);
   octave_value (const Octave_map& m, const std::string& id);
-  octave_value (const octave_value_list& m, bool is_cs_list = false);
+  octave_value (const octave_value_list& m, bool = false);
   octave_value (octave_value::magic_colon);
 
   octave_value (octave_base_value *new_rep, bool borrow = false);
@@ -537,9 +537,6 @@
   bool is_cs_list (void) const
     { return rep->is_cs_list (); }
 
-  bool is_list (void) const
-    { return rep->is_list (); }
-
   bool is_magic_colon (void) const
     { return rep->is_magic_colon (); }