Changeset 14421 for src/Pugs/Eval.hs

Timestamp:

10/22/06 01:36:33 (2 years ago)

Author:

seano

Message:

* Turn of "strict 'vars'" for -e scripts via the non-standard variable

$?STRICT. This will go away with lexical pragmas. (Note: you can
also de-strict your pugs interactive experience with "$?STRICT=0".)

Files:

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

src/Pugs/Eval.hs

@@ -269 +269 @@
 reduceVal v = retVal v
 
+isStrict = do
+    vb <- fromVal =<< readVar (cast "$?STRICT")
+    return vb
+
 -- Reduction for variables
 reduceVar :: Var -> Eval Val
@@ -288 +292 @@
                     lv <- asks envLValue
                     if lv then evalExp (Sym SGlobal var (Var var)) else retEmpty
-                | otherwise         -> retError "Undeclared variable" var
+                | otherwise -> do
+                    s <- isStrict
+                    if s then retError "Undeclared variable" var
+                         else do lv <- asks envLValue
+                                 if lv then evalExp (Sym SGlobal var (Var var)) else retEmpty
 
 _scalarContext :: Cxt