Changeset 10465

Timestamp:

06/03/06 08:11:29 (3 years ago)

Author:

audreyt

Message:

* Pugs.Eval: remove the "not()" hack.

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -791 +791 @@
 reduceApp (Var "&return") invs args = op1Return $ shiftT . const . evalExp $
     Syn "," (maybeToList invs ++ args)
-
--- XXX absolutely evil bloody hack for "not"
-reduceApp (Var "&not") Nothing [] = retEmpty
-
-reduceApp (Var "&not") invs args = do
-    bool <- fromVal =<< evalExp (last $ maybeToList invs ++ args)
-    retVal $ VBool (not bool)
 
 -- XXX absolutely evil bloody hack for "goto"