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 f8adef8b..801848b8 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -338,7 +338,7 @@ shoeOutParse stream ==
$bpCount:local:=0
$bpParenCount:local:=0
bpFirstTok()
- found:=CATCH("TRAPPOINT",bpOutItem())
+ found:=try bpOutItem() catch TRAPPOINT
if found="TRAPPED"
then nil
else if not bStreamNull $inputStream