Changeset 3372 for src/Pugs/Prim.hs

Timestamp:

05/18/05 02:43:25 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

4945

Message:

More signatures, a few more haddocks.

Files:

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

src/Pugs/Prim.hs

@@ -455 +455 @@
 op1 other   = \_ -> fail ("Unimplemented unaryOp: " ++ other)
 
+op1Exit :: Val -> Eval a
 op1Exit v = do
     rv <- fromVal v
@@ -834 +835 @@
 op2DefinedOr = undefined
 
+op2Identity :: Val -> Val -> Eval Val
 op2Identity (VObject x) (VObject y) = return $ VBool (objId x == objId y)
 op2Identity (VRef ref) y = do