diff options
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index fc21f148..5cc2d856 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -286,13 +286,13 @@ bpMissingMate(close,open)== bpMissing s== bpSpecificErrorHere(CONCAT(PNAME s,'" possibly missing")) - THROW("TRAPPOINT","TRAPPED") + throw TRAPPOINT "TRAPPED" bpCompMissing s == bpEqKey s or bpMissing s bpTrap()== bpGeneralErrorHere() - THROW("TRAPPOINT","TRAPPED") + throw TRAPPOINT "TRAPPED" bpRecoverTrap()== bpFirstToken() @@ -310,7 +310,7 @@ bpListAndRecover(f)== c:=$inputStream while not done repeat -- $trapped:local:=false - found:=CATCH("TRAPPOINT",APPLY(f,nil)) + found:=try APPLY(f,nil) catch TRAPPOINT if found="TRAPPED" then $inputStream:=c |