Changeset 4270 for src/Pugs/Types/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/Types/Code.hs (modified) (2 diffs)

src/Pugs/Types/Code.hs

@@ -1 +1 @@
 
 class (Typeable a) => CodeClass a where
-    code_iType :: a -> Type
+    code_iType    :: a -> Type
     code_iType = const $ mkType "Code"
     code_fetch    :: a -> Eval VCode
@@ -30 +30 @@
         _           -> mkType "Sub"
     code_fetch    = return
-    code_store _ _= retConstError undef
+    code_store c _= retConstError $ VStr $ show c
     code_assuming c [] [] = return c
     code_assuming _ _ _   = error "assuming"