Changeset 13717 for src/Pugs/Prim/List.hs

Timestamp:

09/29/06 03:34:35 (2 years ago)

Author:

audreyt

Message:

* Prefix + ^{now takes arbitrary-precision integers; it's simply:}

sub (Int $x) { -$x - 1 }

Files:

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

src/Pugs/Prim/List.hs

@@ -277 +277 @@
         _true   = return (VBool True)
         _list   = return (VList [])
-        _neg1   = return (VInt (toInteger (complement 0 :: Word)))
+        _neg1   = return (VInt $ -1)
         _junc   = \jtyp -> return . VJunc $ MkJunc jtyp Set.empty Set.empty
         _''     = return (VStr "")