# HG changeset patch
# User jwe
# Date 907355539 0
# Node ID edaa9a2d3d9c623109958176f381551b75597ba8
# Parent  9580887dd1605c093937c2e46414cbda5c7ca3a2
[project @ 1998-10-02 19:12:19 by jwe]

diff -r 9580887dd160 -r edaa9a2d3d9c src/data.cc
--- a/src/data.cc	Sat Sep 26 02:45:59 1998 +0000
+++ b/src/data.cc	Fri Oct 02 19:12:19 1998 +0000
@@ -730,22 +730,26 @@
   return retval;
 }
 
+DEFUN (is_complex, args, ,
+  "is_complex (x): return nonzero if x is a complex numeric object")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    retval = args(0).is_complex_type () ? 1.0 : 0.0;
+  else
+    print_usage ("is_complex");
+
+  return retval;
+}
+
 DEFUN (is_struct, args, ,
   "is_struct (x): return nonzero if x is a structure")
 {
-  octave_value_list retval;
-
-  int nargin = args.length ();
+  octave_value retval;
 
-  if (nargin == 1)
-    {
-      octave_value arg = args(0);
-
-      if (arg.is_map ())
-	retval = 1.0;
-      else
-	retval = 0.0;
-    }
+  if (args.length () == 1)
+    retval = args(0).is_map () ? 1.0 : 0.0;
   else
     print_usage ("is_struct");