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

Timestamp:

02/18/07 15:59:02 (21 months ago)

Author:

audreyt

Message:

* Revert the previous patch; everything back to normal.

Files:

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

src/Pugs/Prim/List.hs

@@ -317 +317 @@
         _neg1   = return (VInt $ -1)
         _junc   = \jtyp -> return . VJunc $ MkJunc jtyp Set.empty Set.empty
-        _''     = return (_VStr "")
+        _''     = return (VStr "")
         _fail   = fail $ "reduce is nonsensical for " ++ cast name
 
@@ -381 +381 @@
     list    <- readRef ref
     strList <- fromVals list
-    return . _VStr . concat . intersperse str $ strList
+    return . VStr . concat . intersperse str $ strList
 
 sortByM :: (Val -> Val -> Eval Bool) -> [Val] -> Eval [Val]