Changeset 175

Timestamp:

02/22/05 16:02:51 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* CALLER:: in toplevel is now an error

Files:

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

src/Eval.hs

@@ -198 +198 @@
 findVar name
     | (sig:"CALLER", name') <- breakOnGlue "::" name = do
-        (Just caller) <- asks envCaller
-        findVar' caller (sig:(drop 2 name'))
+        rv <- asks envCaller
+        case rv of
+            Just caller -> findVar' caller (sig:(drop 2 name'))
+            Nothing -> retError "cannot access CALLER:: in top level" (Var name)
     | otherwise = do
         env <- ask