Changeset 14438 for src/Pugs/Eval.hs

Timestamp:

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

Author:

audreyt

Message:

* isStrict: $?STRICT shouldn't be a global; rename it to $*STRICT.

Files:

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

src/Pugs/Eval.hs

@@ -269 +269 @@
 reduceVal v = retVal v
 
-isStrict = do
-    vb <- fromVal =<< readVar (cast "$?STRICT")
-    return vb
+isStrict :: Eval Bool
+isStrict = fromVal =<< readVar (cast "$*STRICT")
 
 -- Reduction for variables