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

Timestamp:

10/09/06 17:27:07 (2 years ago)

Author:

audreyt

Message:

* Pugs.Prim.List: "join(1, [2, 3])" shouldn't flatten into "join(1, 2, 3)".

Files:

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

src/Pugs/Prim/List.hs

@@ -342 +342 @@
 -- op2Join (VList [x@(VRef _)]) y = op2Join x y
 op2Join x y = do
-    (strVal, listVal) <- ifValTypeIsa x "Scalar"
-        (return (x, y))
+    (strVal, valList) <- ifValTypeIsa x "Scalar"
+        (return (x, (VRef (arrayRef (listVal y)))))
         (return (y, x))
     str     <- fromVal strVal
-    ref     <- fromVal listVal
+    ref     <- fromVal valList
     list    <- readRef ref
     strList <- fromVals list