Changeset 8288 for src/Pugs/Prim/Eval.hs

Timestamp:

12/17/05 23:43:29 (3 years ago)

Author:

gaal

Message:

* Pugs.Parser: Perform symbol importation at use time, not parse time.

This means that the second of two packages that use an exported function
sees it, like it should.
TODO: make this import lexically scoped by default; and honor importation
requests on the C<use> line. Oh, and add tests, too!

Files:

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

src/Pugs/Prim/Eval.hs

@@ -43 +43 @@
                 [ Var "%*INC", Val . VStr $ decodeUTF8 mod ]
                 , Syn "\\{}"       -- hashref
-                    [ Syn "," [ mkStrPair "pathname" (decodeUTF8 pathName)
-                              , mkStrPair "relname"  (decodeUTF8 file) ]
+                    [ Syn "," [ mkStrPair "fullpath" (decodeUTF8 pathName)
+                              , mkStrPair "relpath"  (decodeUTF8 file) ]
                     ]
             ]
-        str         <- liftIO $ readFile pathName
+        str      <- liftIO $ readFile pathName
         opEval style pathName (decodeUTF8 str)
     where