mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 22:37:38 +02:00
Added flush-output-port
This commit is contained in:
parent
bc14eb2a80
commit
97d0fee765
1 changed files with 3 additions and 4 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Reference in a new issue