original commit: c1cab34ebe49c909ed5899b1226ef6e879ab7d01
This commit is contained in:
Matthew Flatt 2001-04-08 02:44:04 +00:00
parent e19566676b
commit 330cd32e9e

View File

@ -167,7 +167,7 @@
(define merge-input
(case-lambda
[(a b) (merge-input a b #f)]
[(a b) (merge-input a b 4096)]
[(a b limit)
(or (input-port? a)
(raise-type-error 'merge-input "input-port" a))