Changeset 13823 for src/Pugs/Eval

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/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -666 +666 @@
     = Just sub
 
-    | reqLen    <- length $ filter (\p -> not (isOptional p) || isSlurpy p && v_sigil (paramName p) == SScalar) prms
+    | reqLen    <- length $ filter (\p -> not (isOptional p || (isSlurpy p && v_sigil (paramName p) /= SScalar))) prms
     , optLen    <- length $ filter (\p -> isOptional p) prms
     , hasArray  <- isJust $ find (\p -> isSlurpy p && v_sigil (paramName p) == SArray) prms