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

Timestamp:

05/12/05 13:34:59 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* join.t fixed

Files:

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

src/Pugs/Prim/List.hs

@@ -90 +90 @@
 
 op2Join :: Val -> Val -> Eval Val
+op2Join (VList [x@(VRef _)]) y = op2Join x y
 op2Join x y = do
     (strVal, listVal) <- ifValTypeIsa x "Scalar"