Mercurial > octave-nkf

diff scripts/control/obsolete/dezero.m @ 7134:ff0b965b65bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 16:36:06 by jwe]
author jwe
date Thu, 08 Nov 2007 16:36:06 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/control/obsolete/dezero.m	Thu Nov 08 16:25:44 2007 +0000
+++ b/scripts/control/obsolete/dezero.m	Thu Nov 08 16:36:06 2007 +0000
@@ -31,7 +31,7 @@
 function t = dezero (s)
 
   ## delete the next line if you're stubbornly going to use dezero.
-  error("dezero is no longer supported.");
+  error ("dezero is no longer supported.");
 
   if (nargin != 1)
     print_usage ();
@@ -48,7 +48,7 @@
 
       ## need to remove zeros first, then call deblank
       s = toascii (s);
-      t = deblank(char(s(find(s != 0) )));
+      t = deblank (char (s(find (s != 0))));
     endif
 
   else