Mercurial > hg > octave-nkf

diff scripts/control/dezero.m @ 3383:ebf69eb3d07d
[project @ 1999-12-15 21:27:56 by jwe]
author: jwe
date: Wed, 15 Dec 1999 21:28:01 +0000
parents: 69b167451491
children: 6735e4c759a2
--- a/scripts/control/dezero.m
+++ b/scripts/control/dezero.m
@@ -36,9 +36,6 @@
     usage ("dezero (s)");
   elseif (isstr (s))
 
-    save_val = implicit_str_to_num_ok;
-    implicit_str_to_num_ok = 1;
-
     [nr, nc] = size (s);
     len = nr * nc;
 
@@ -53,8 +50,6 @@
       t = deblank(setstr(s(find(s != 0) )));
     endif
 
-    implicit_str_to_num_ok = save_val;
-
   else
     error ("dezero: expecting string argument");
   endif