Changeset 5498 for src/Pugs/Eval.hs

Timestamp:

07/12/05 15:50:08 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7501

Message:

* export.t -- putting out the fire (I think)

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -660 +660 @@
     when (str `elem` words "MY OUR OUTER CALLER") $ do
         fail $ "Cannot use " ++ str ++ " as a namespace"
-    writeVar "$*PACKAGE" val
-    enterPackage str $ evalExp body
+    tempVar "$*PACKAGE" val $ do
+        enterPackage str $ evalExp body
 
 reduceSyn "inline" [langExp, _] = do