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

Timestamp:

09/29/06 03:47:40 (2 years ago)

Author:

audreyt

Message:

* Make interpolating <<$x>> behave a bit more like <<literal>>:

my $x = 'foo';
<< $x >>; # Str('foo')
<< $x $x >>; # Seq(Str('foo'), Str('foo'))

It used to be that it produces a list no matter what, but that
wasn't the behaviour for noninterpolating literals.

Files:

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

src/Pugs/Prim/Match.hs

@@ -185 +185 @@
         True -> do
             strs <- mapM fromVal rv
-            return (VList $ map VStr strs)
+            return $ case strs of
+                [str]   -> VStr str
+                _       -> VList $ map VStr strs
         _ | isSlurpyCxt cxt -> do
             return (VList rv)