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

Timestamp:

06/03/05 02:36:06 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5929

Message:

Code::pos method (not quite working?)

Files:

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

src/Pugs/Prim/Code.hs

@@ -3 +3 @@
 import Pugs.AST
 import Pugs.Internals
+
+{- On Code -}
 
 op1CodeAssoc :: Val -> Eval Val
@@ -23 +25 @@
     code <- fromVal v
     expToEvalVal $ subBody code
+
+op1CodePos :: Val -> Eval Val
+op1CodePos v = do
+    code <- fromVal v
+    let env = subEnv code
+    case env of
+        Nothing  -> return VUndef
+        Just env -> return $ castV $ show $ envPos env
+
+{- On Code::Exp -}
+
+