Mercurial > octave-antonio
diff src/parse.y @ 924:8b0920cc1d64
[project @ 1994-11-15 00:40:50 by jwe]
| author | jwe |
|---|---|
| date | Tue, 15 Nov 1994 00:41:30 +0000 |
| parents | 708827b941b4 |
| children | 570f55edf65f |
line wrap: on
line diff
--- a/src/parse.y Mon Nov 14 22:42:15 1994 +0000 +++ b/src/parse.y Tue Nov 15 00:41:30 1994 +0000 @@ -223,7 +223,7 @@ %token <tok_val> PLOT %token <tok_val> TEXT STYLE %token <tok_val> FOR WHILE IF ELSEIF ELSE BREAK CONTINUE FUNC_RET -%token <tok_val> UNWIND_PROTECT UNWIND_PROTECT_CLEANUP +%token <tok_val> UNWIND CLEANUP %token <tok_val> GLOBAL %token <tok_val> TEXT_ID @@ -604,12 +604,12 @@ $$ = $1; } - | UNWIND_PROTECT opt_list UNWIND_PROTECT_CLEANUP opt_list END + | UNWIND optsep opt_list CLEANUP optsep opt_list END { - if (check_end ($5, token::unwind_protect_end)) + if (check_end ($7, token::unwind_protect_end)) ABORT_PARSE; - $$ = new tree_unwind_protect_command ($2, $4, $1->line (), + $$ = new tree_unwind_protect_command ($3, $6, $1->line (), $1->column ()); } | WHILE expression optsep opt_list END