From cfda765b2e6342596df91ac9d4110f3fa95f5d75 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 16 May 2011 19:51:01 +0000
Subject: 	* boot/ast.boot (bfAtScope): New. 	* boot/parser.boot
 (bpDo): Accept scoped expressions. 	* boot/translator.boot: Cleanup.

---
 src/boot/parser.boot | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index db07d2f9..472d98ac 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -757,8 +757,13 @@ bpLeave() ==
     bpPush bfLeave bpPop1()
 
 ++ Do:
+++  IN Namespace Do
 ++  DO Assign
 bpDo() ==
+  bpEqKey "IN" =>
+    bpNamespace() or bpTrap()
+    bpDo() or bpTrap()
+    bpPush bfAtScope(bpPop2(),bpPop1())
   bpEqKey "DO" and (bpAssign() or bpTrap()) and bpPush bfDo bpPop1()
 
 ++ Return:
-- 
cgit v1.2.3