Changeset 5843 for src/Pugs/Prim/Param.hs

Timestamp:

07/27/05 16:27:42 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7758

Message:

* Primitive listops now handles Pairs as regular arguments

instead of named bindings.

Files:

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

src/Pugs/Prim/Param.hs

@@ -15 +15 @@
     (buildParam "Hash" "*" "@?0" (Val VUndef)):
     (buildParam "Hash" "*" "%?0" (Val VUndef)):ps)
-foldParam "List"    = doFoldParam "List" "*@?1"
+foldParam "List"    = doFoldParam "Any" "*@?1"
 foldParam ('r':'w':'!':"List") = \ps -> ((buildParam "List" "" "@?0" (Val VUndef)) { isLValue = True }:ps)
 foldParam ('r':'w':'!':str) = \ps -> ((buildParam str "" "$?1" (Val VUndef)) { isLValue = True }:ps)