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

Timestamp:

05/30/05 08:19:41 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

* Code::* moved to Prim/Code.hs.
* "say" and "print" gets invocantised with IO::* forms.

Files:

• src/Pugs/Prim/Code.hs (modified) (1 diff)

src/Pugs/Prim/Code.hs

@@ -2 +2 @@
 module Pugs.Prim.Code (
     -- for Pugs.Prim
-    op1Assoc
+    op1CodeAssoc,
+    op1CodeName,
+    op1CodeArity,
 ) where
 import Pugs.AST
 import Pugs.Internals
-import Pugs.Types
 
-op1Assoc :: Val -> Eval Val
-op1Assoc codeval = do
-    code <- fromVal codeval :: Eval VCode
-    return $ VStr $ code_assoc code
+op1CodeAssoc :: Val -> Eval Val
+op1CodeAssoc v = do
+    code <- fromVal v
+    return . castV $ subAssoc code
+
+op1CodeName :: Val -> Eval Val
+op1CodeName v = do
+    code <- fromVal v
+    return . castV $ subName code
+
+op1CodeArity :: Val -> Eval Val
+op1CodeArity v = do
+    code <- fromVal v
+    return . castV . length $ subParams code