Mercurial > hg > octave-nkf

comparison libinterp/parse-tree/pt-eval.cc @ 15467:049e8bbff782

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: periodic merge of stable to default
author John W. Eaton <jwe@octave.org>
date Mon, 01 Oct 2012 18:30:44 -0400
parents src/pt-eval.cc@d174210ce1ec src/pt-eval.cc@3f43e9d6d86e
children 72868cae7624
comparison
equal deleted inserted replaced
15465:ded4ce76ee7a 15467:049e8bbff782
266 static inline bool 266 static inline bool
267 quit_loop_now (void) 267 quit_loop_now (void)
268 { 268 {
269 octave_quit (); 269 octave_quit ();
270 270
271 // Maybe handle `continue N' someday... 271 // Maybe handle 'continue N' someday...
272 272
273 if (tree_continue_command::continuing) 273 if (tree_continue_command::continuing)
274 tree_continue_command::continuing--; 274 tree_continue_command::continuing--;
275 275
276 bool quit = (error_state 276 bool quit = (error_state
486 if (quit_loop_now ()) 486 if (quit_loop_now ())
487 break; 487 break;
488 } 488 }
489 } 489 }
490 else 490 else
491 error ("in statement `for [X, Y] = VAL', VAL must be a structure"); 491 error ("in statement 'for [X, Y] = VAL', VAL must be a structure");
492 } 492 }
493 493
494 void 494 void
495 tree_evaluator::visit_octave_user_script (octave_user_script&) 495 tree_evaluator::visit_octave_user_script (octave_user_script&)
496 { 496 {