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