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

Timestamp:

02/18/07 15:56:10 (21 months ago)

Author:

audreyt

Message:

* Convert VStr from String to ByteString?, and Syn from

String to ID, in Pugs. Benchmark shows the perf gain is 5%,
so it's not worth the trouble of writing a GHC 6.7-compatible
processor. The next commit will revert this commit.

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]