From 5505ab2d0069eb2809753217a93e9a4551c997f9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 15 Feb 2008 20:28:37 +0000
Subject: Tidy src/boot

---
 src/boot/translator.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot/translator.boot')

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
-- 
cgit v1.2.3