Fixed 2 typos

This commit is contained in:
mainzelm 2001-03-25 17:14:32 +00:00
parent 5d4b66daf4
commit 5b8818ffef
2 changed files with 2 additions and 2 deletions

View File

@ -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)))

View File

@ -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)