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

Found a small error in in-port's handling of default arguments

Browse Source 
svn: r17244
This commit is contained in:
Jay McCarthy 2009-12-08 22:50:43 +00:00
parent a429c3ff8d
commit b26bdba77d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/for.ss
View File

@ -469,8 +469,8 @@
(define in-port (define in-port
(case-lambda (case-lambda
[() (in-port (current-input-port) read)] [() (in-port read (current-input-port))]
[(r) (in-port (current-input-port) r)] [(r) (in-port r (current-input-port))]
[(r p) [(r p)
(unless (and (procedure? r) (procedure-arity-includes? r 1)) (unless (and (procedure? r) (procedure-arity-includes? r 1))
(raise-type-error 'in-port "procedure (arity 1)" r)) (raise-type-error 'in-port "procedure (arity 1)" r))