Changeset 5410 for src/Pugs/Compile.hs

Timestamp:

07/11/05 15:16:51 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* Test.pm passes PIR compilation again.

Files:

• src/Pugs/Compile.hs (modified) (2 diffs)

src/Pugs/Compile.hs

@@ -17 +17 @@
 import Pugs.Eval
 import Pugs.Eval.Var
+import Pugs.Monads
 import Emit.PIR
 import Text.PrettyPrint
@@ -226 +227 @@
         tailCall (PPos pos exp x) = PPos pos exp (tailCall x)
         tailCall x = x
+    Stmts this (Syn "namespace" [Val (VStr pkg), rest]) -> do
+        thisC   <- enter cxtVoid $ compile this
+        restC   <- enterPackage pkg $ compileStmts rest
+        return $ PStmts thisC restC
     Stmts this rest -> do
         thisC   <- enter cxtVoid $ compile this