aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-02-15 20:28:37 +0000
committerdos-reis <gdr@axiomatics.org>2008-02-15 20:28:37 +0000
commit5505ab2d0069eb2809753217a93e9a4551c997f9 (patch)
tree4fa77d6041f8a2d915d915feaa2a4a1dab52c799 /src/boot/translator.boot
parent9d17d5a9314c999f1495392909dbfdb09b0dc1e3 (diff)
downloadopen-axiom-5505ab2d0069eb2809753217a93e9a4551c997f9.tar.gz
Tidy src/boot
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