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

Timestamp:

05/14/05 12:35:26 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4718

Message:

* fix regression reported by gaal: my $s = <a>; my @a = <<$s>>;

Files:

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

src/Pugs/Prim/Match.hs

@@ -120 +120 @@
     str     <- fromVal x
     rv      <- matchOnce str
-    ifListContext
-        (return $ VList rv)
-        (return . VInt $ genericLength rv)
+    cxt     <- asks envContext
+    if (not $ isSlurpyCxt cxt)
+        then return (VInt $ genericLength rv)
+        else return . VList $ if rxStringify rx
+            then map (VStr . vCast) rv
+            else rv
     where
     matchOnce :: String -> Eval [Val]