suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug introduced in recent refactor

Browse Source
This commit is contained in:
Robby Findler 2011-07-15 07:08:28 -06:00
parent 7134d67921
commit 9190fbade2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/contract/private/arrow.rkt
View File

@ -385,7 +385,7 @@ v4 todo:
(define basic-checker-name (define basic-checker-name
(if (null? req-kwd) (if (null? req-kwd)
(λ args (λ args
(unless (<= min-arity (length args) max-arity) (unless (valid-number-of-args? args)
(define args-len (length args)) (define args-len (length args))
(raise-blame-error blame val (raise-blame-error blame val
"received ~a argument~a, expected ~a" "received ~a argument~a, expected ~a"