Mercurial > hg > octave-lyh

diff scripts/miscellaneous/menu.m @ 3180:c17387059fd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-09-24 18:59:11 by jwe]
author jwe
date Thu, 24 Sep 1998 19:00:19 +0000
parents 8b262e771614
children f16c2ce14886
line wrap: on
line diff
--- a/scripts/miscellaneous/menu.m
+++ b/scripts/miscellaneous/menu.m
@@ -56,13 +56,8 @@
 	disp (va_arg ());
       endfor
       printf ("\n");
-      s = "";
       s = input ("pick a number, any number: ", "s");
-      if (strcmp (s, ""))
-	printf ("\n");
-	continue;
-      endif
-      eval (sprintf ("num = %s;", s));
+      eval (sprintf ("num = %s;", s), "num = [];");
       if (! is_scalar (num) || num < 1 || num > nopt)
 	printf ("\nerror: input invalid or out of range\n\n");
       else