Changeset 4270 for src/Pugs/Prim/Code.hs

Timestamp:

06/01/05 17:46:40 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5861

Message:

Hackish Code.body support (presently useless as well, as there aren't any
methods on Code::Exp, but that should change soon).

Files:

• src/Pugs/Prim/Code.hs (modified) (2 diffs)

src/Pugs/Prim/Code.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
-module Pugs.Prim.Code (
-    -- for Pugs.Prim
-    op1CodeAssoc,
-    op1CodeName,
-    op1CodeArity,
-) where
+module Pugs.Prim.Code where
 import Pugs.AST
 import Pugs.Internals
@@ -23 +18 @@
     code <- fromVal v
     return . castV . length $ subParams code
+
+op1CodeBody :: Val -> Eval Val
+op1CodeBody v = do
+    code <- fromVal v
+    expToEvalVal $ subBody code