Mercurial > hg > octave-lyh

diff scripts/general/num2str.m @ 5443:ec8c33dcd1bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-08 01:40:57 by jwe]
author jwe
date Thu, 08 Sep 2005 01:40:58 +0000
parents cf44c749ba52
children 2618a0750ae6
line wrap: on
line diff
--- a/scripts/general/num2str.m
+++ b/scripts/general/num2str.m
@@ -36,14 +36,14 @@
     usage ("num2str (x) or num2str (x, precision) or num2str (x, fmt)");
   endif
 
-  if (isstr (x))
+  if (ischar (x))
     retval = x;
     return;
   endif
 
   if (iscomplex (x))
     if (nargin == 2)
-      if (isstr (arg))
+      if (ischar (arg))
 	fmt = strcat (arg, "%-+", arg(2:end), "i");
       else
 	if (isnumeric (x) && round (x) == x && abs (x) < (10 .^ arg))
@@ -106,7 +106,7 @@
     retval = split (tmp, "\n");
   else
     if (nargin == 2)
-      if (isstr (arg))
+      if (ischar (arg))
 	fmt = arg;
       else
 	if (isnumeric (x) && round (x) == x && abs (x) < (10 .^ arg))