Added flush-output-port

This commit is contained in:
Justin Ethier 2015-07-29 22:17:07 -04:00
parent bc14eb2a80
commit 97d0fee765

View file

@ -136,10 +136,9 @@
end end
(func (car lst) (foldr func end (cdr lst))))) (func (car lst) (foldr func end (cdr lst)))))
(define (flush-output-port . port) (define (flush-output-port . port)
'TODO) (if (null? port)
; (if (null? port) (Cyc-flush-output-port (current-output-port))
; (Cyc-flush-output-port (current-output-port)) (Cyc-flush-output-port (car port))))
; (Cyc-flush-output-port (car port))))
(define (write-char char . port) (define (write-char char . port)
(if (null? port) (if (null? port)
(Cyc-write-char char (current-output-port)) (Cyc-write-char char (current-output-port))