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

Timestamp:

10/03/06 15:21:04 (2 years ago)

Author:

audreyt

Message:

* oops, the slurpy-param count fix accidentally broke named args.

Files:

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

src/Pugs/Prim/Param.hs

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