remove printf

This commit is contained in:
Matthew Flatt 2011-04-06 08:04:22 -06:00
parent 5d47c0b49b
commit 584f74a22b

View File

@ -1215,7 +1215,6 @@
(make-keyword-procedure (lambda args (cdr args)))
(make-keyword-procedure
(lambda (kwds kwd-args . args)
(printf "~s\n" kwd-args)
(apply values (lambda (v) (box v)) (map list kwd-args) args))))
#:a "x"))