Changeset 3739

Timestamp:

05/23/05 16:56:50 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5329

Message:

Tentative implementation of nothingmuch's lazy proposal.

Files:

• src/Pugs/Prim.hs (modified) (2 diffs)
• t/unspecced/lazy.t (added)

src/Pugs/Prim.hs

@@ -247 +247 @@
     val <- resetT $ evalExp (App (Val $ VCode sub) [] [])
     retEvalResult False val
+-- Tentative implementation of nothingsmuch's lazy proposal.
+op1 "lazy" = \v -> do
+    sub <- fromVal v
+    return $ VRef . thunkRef . MkThunk . evalExp $ App (Val $ VCode sub) [] []
 op1 "defined" = op1Cast (VBool . defined)
 op1 "last" = const $ fail "cannot last() outside a loop"
@@ -1202 +1206 @@
 \\n   Str       pre     perl    (rw!Any|Junction)\
 \\n   Any       pre     try     (Code)\
+\\n   Any       pre     lazy    (Code)\
 \\n   Any       pre     eval    (Str)\
 \\n   Any       pre     eval_parrot   (Str)\