Mercurial > octave-nkf
diff src/parse.y @ 5794:1138ced03f14
[project @ 2006-05-08 20:23:04 by jwe]
author | jwe |
---|---|
date | Mon, 08 May 2006 20:23:07 +0000 |
parents | faafc2d98b8d |
children | 080c08b192d8 |
line wrap: on
line diff
--- a/src/parse.y Sat May 06 14:55:35 2006 +0000 +++ b/src/parse.y Mon May 08 20:23:07 2006 +0000 @@ -3212,12 +3212,6 @@ command_editor::set_input_stream (static_cast<FILE *> (f)); } -static void -clear_current_script_file_name (void *) -{ - bind_builtin_variable ("current_script_file_name", octave_value ()); -} - static bool parse_fcn_file (const std::string& ff, bool exec_script, bool force_script = false) { @@ -3329,10 +3323,6 @@ Vsaving_history = false; reading_script_file = true; - unwind_protect::add (clear_current_script_file_name, 0); - - bind_builtin_variable ("current_script_file_name", ff); - octave_user_script *script = new octave_user_script (ff, ff, ""); octave_call_stack::push (script); unwind_protect::add (octave_call_stack::unwind_pop_script, 0);