Changeset 2528 for src/Pugs/Types

Timestamp:

04/30/05 17:49:14 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4052

Message:

* (undef, $x) = (1, 2) now works.

Files:

• src/Pugs/Types/Array.hs (modified) (1 diff)

src/Pugs/Types/Array.hs

@@ -189 +189 @@
     array_store [] _ = return ()
     array_store _ [] = return ()
+    array_store (VUndef:as) (_:vs) = array_store as vs
     array_store (a:as) vals@(v:vs) = do
         env <- ask