Mercurial > octave

diff src/parse.y @ 1588:27f5ac98fc4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-31 06:04:47 by jwe]
author jwe
date Tue, 31 Oct 1995 06:04:47 +0000
parents d361954e95ae
children 795527e9db19
line wrap: on
line diff
--- a/src/parse.y	Tue Oct 31 05:26:50 1995 +0000
+++ b/src/parse.y	Tue Oct 31 06:04:47 1995 +0000
@@ -1048,11 +1048,15 @@
 
 func_def3	: param_list optsep opt_list fcn_end_or_eof
 		  {
+		    $3->mark_as_function_body ();
 		    tree_function *fcn = new tree_function ($3, curr_sym_tab);
 		    $$ = fcn->define_param_list ($1);
 		  }
 		| optsep opt_list fcn_end_or_eof
-		  { $$ = new tree_function ($2, curr_sym_tab); }
+		  {
+		    $2->mark_as_function_body ();
+		    $$ = new tree_function ($2, curr_sym_tab);
+		  }
 		;
 
 fcn_end_or_eof	: END