Changeset 14079 for src/Pugs/Eval.hs

Timestamp:

10/09/06 17:25:25 (2 years ago)

Author:

audreyt

Message:

* Pugs.Eval: Syn "block" [...] can now double as a runtime-creation-only

closure for things that does not want to close over the compile-time
block, typically when there wasn't a real block in the first place.

This is useful for postfix loops as well as implicit hypers.

Files:

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

src/Pugs/Eval.hs

@@ -1471 +1471 @@
 
 fromCodeExp :: Exp -> Eval VCode
-fromCodeExp = (fromVal =<<) . enterRValue . enterEvalContext (cxtItem "Code")
+fromCodeExp x = case x of
+    Syn "block" [Val VCode{}]   -> fromClosure x
+    Syn "block" [_]             -> do
+        env <- ask
+        return $ mkCode
+            { subEnv        = Just env
+            , subType       = SubBlock
+            , subParams     = [defaultScalarParam]
+            , subBody       = x
+            }
+    _                           -> fromClosure x
+    where
+    fromClosure = (fromVal =<<) . enterRValue . enterEvalContext (cxtItem "Code")
+