Mercurial > hg > octave-nkf

changeset 2808:78b7b5b73215

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-03-11 06:11:24 by jwe]
author jwe
date Tue, 11 Mar 1997 06:11:42 +0000
parents 3d59001b98a3
children 589761f7e756
files src/toplev.cc test/octave.test/eval/eval-2.m test/octave.test/eval/eval-3.m test/octave.test/eval/eval-4.m
diffstat 4 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/toplev.cc
+++ b/src/toplev.cc
@@ -623,7 +623,8 @@
 
       int parse_status = 0;
 
-      retval = eval_string (args(0), 0, parse_status, nargout);
+      retval = eval_string (args(0), Vdefault_eval_print_flag,
+			    parse_status, nargout);
 
       if (nargin > 1 && (parse_status != 0 || error_state))
 	{
@@ -636,8 +637,7 @@
 	  bind_global_error_variable ();
 	  add_unwind_protect (clear_global_error_variable, 0);
 
-	  eval_string (args(1), Vdefault_eval_print_flag,
-		       parse_status, nargout);
+	  eval_string (args(1), 0, parse_status, nargout);
 
 	  retval = octave_value_list ();
 	}
--- a/test/octave.test/eval/eval-2.m
+++ b/test/octave.test/eval/eval-2.m
@@ -1,1 +1,2 @@
+default_eval_print_flag = 1;
 eval ("x = 1;")
--- a/test/octave.test/eval/eval-3.m
+++ b/test/octave.test/eval/eval-3.m
@@ -1,1 +1,2 @@
+default_eval_print_flag = 1;
 eval ("x = 1;");
--- a/test/octave.test/eval/eval-4.m
+++ b/test/octave.test/eval/eval-4.m
@@ -1,1 +1,2 @@
+default_eval_print_flag = 1;
 eval ("x = 1")