Fixed 2 typos
This commit is contained in:
parent
5d4b66daf4
commit
5b8818ffef
|
@ -158,7 +158,7 @@
|
|||
(char-set-copy char-set:empty)
|
||||
elts)))
|
||||
(values (re-char-set (if negate?
|
||||
(char-set-compelment! cset)
|
||||
(char-set-complement! cset)
|
||||
cset))
|
||||
i)))
|
||||
|
||||
|
|
|
@ -50,7 +50,7 @@
|
|||
;;; This applies to input- and output-ports
|
||||
|
||||
(define (fdport-channel-ready? fdport*)
|
||||
(channel-ready? (fdport-data: channel fdport*)))
|
||||
(channel-ready? (fdport-data:channel fdport*)))
|
||||
|
||||
;Arbitrary, for now.
|
||||
(define buffer-size 255)
|
||||
|
|
Loading…
Reference in New Issue