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

Timestamp:

07/12/05 14:34:10 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7501

Message:

* identity test for functions should now pass; Eq and Ord

for function and dynamics redefined to base on 'show'.

Files:

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

src/Pugs/Prim/Eval.hs

@@ -37 +37 @@
     seen        <- findSymRef "%*INC" glob
     loaded      <- existsFromRef seen v
-    if (loaded) then (return $ VInt 1) else do -- XXX: SPECME: what do we return here?
-        pathName <- requireInc incs file (errMsg file incs)
+    pathName    <- requireInc incs file (errMsg file incs)
+    if loaded then opEval style pathName "" else do
         -- %*INC{file} = pathname
         evalExp $ Syn "="