Changeset 4922 for src/Pugs/Prim/Match.hs

Timestamp:

06/23/05 21:00:37 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6771

Message:

* clean up theorbtwo's vCast patch. I expect most tests

to still break... :)

Files:

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

src/Pugs/Prim/Match.hs

@@ -119 +119 @@
     if (not $ isSlurpyCxt cxt)
         then return (VInt $ genericLength rv)
-        else return . VList $ if rxStringify rx
-            then map (VStr . vCast) rv
-            else rv
+        else if rxStringify rx
+            then do
+                strs <- mapM fromVal rv
+                return (VList $ map VStr strs)
+            else return (VList rv)
     where
     matchOnce :: String -> Eval [Val]