aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r--src/boot/translator.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 001901ab..1ae7a639 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -363,7 +363,7 @@ shoeOutParse stream ==
$bpCount := 0
$bpParenCount := 0
bpFirstTok()
- found := try bpOutItem() catch TRAPPOINT
+ found := CATCH('TRAPPOINT,bpOutItem()) --try bpOutItem() catch TRAPPOINT
found = "TRAPPED" => nil
not bStreamNull $inputStream =>
bpGeneralErrorHere()