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

remove debugging output

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-15 06:45:42 -06:00
parent d61eb53686
commit a95ce7dc5a
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/racket/private/kw.rkt
View File

@ -985,7 +985,6 @@
(when (or (n . < . n-req)
(and (not rest?)
(n . > . (+ n-req n-opt))))
(printf "~s\n" (list n n-req n-opt))
(warning "wrong number of by-position arguments")))
(lambda (args kw-args lifted? orig)
(let* ([args (syntax->list (datum->syntax #f args))]