.
original commit: c1cab34ebe49c909ed5899b1226ef6e879ab7d01
This commit is contained in:
parent
e19566676b
commit
330cd32e9e
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user