fix bug introduced in recent refactor

2011-07-15 07:08:28 -06:00 · 2011-07-15 07:08:28 -06:00 · 9190fbade2
commit 9190fbade2
parent 7134d67921
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/contract/private/arrow.rkt
+++ b/collects/racket/contract/private/arrow.rkt
@ -385,7 +385,7 @@ v4 todo:
     (define basic-checker-name 
       (if (null? req-kwd)
           (λ args
-             (unless (<= min-arity (length args) max-arity)
+             (unless (valid-number-of-args? args)
               (define args-len (length args))
               (raise-blame-error blame val
                                  "received ~a argument~a, expected ~a"