Mercurial > hg > octave-lyh

comparison src/ov-builtin.cc @ 4987:bad4898b468e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-09-10 20:24:05 by jwe]
author jwe
date Fri, 10 Sep 2004 20:24:06 +0000
parents 80842ad3f85c
children 48d0defe9445
comparison
equal deleted inserted replaced
4986:fac558699d0f 4987:bad4898b468e
106 106
107 if (any_arg_is_magic_colon (args)) 107 if (any_arg_is_magic_colon (args))
108 ::error ("invalid use of colon in function argument list"); 108 ::error ("invalid use of colon in function argument list");
109 else 109 else
110 { 110 {
111 unwind_protect::begin_frame ("builtin_func_eval");
112
111 unwind_protect_ptr (curr_function); 113 unwind_protect_ptr (curr_function);
112 unwind_protect_ptr (curr_caller_function); 114 unwind_protect_ptr (curr_caller_function);
113 115
114 curr_caller_function = curr_function; 116 curr_caller_function = curr_function;
115 curr_function = this; 117 curr_function = this;
116 118
117 retval = (*f) (args, nargout); 119 retval = (*f) (args, nargout);
118 120
119 unwind_protect::run (); 121 unwind_protect::run_frame ("builtin_func_eval");
120 } 122 }
121 123
122 return retval; 124 return retval;
123 } 125 }
124 126