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
|
||||
(func (car lst) (foldr func end (cdr lst)))))
|
||||
(define (flush-output-port . port)
|
||||
'TODO)
|
||||
; (if (null? port)
|
||||
; (Cyc-flush-output-port (current-output-port))
|
||||
; (Cyc-flush-output-port (car port))))
|
||||
(if (null? port)
|
||||
(Cyc-flush-output-port (current-output-port))
|
||||
(Cyc-flush-output-port (car port))))
|
||||
(define (write-char char . port)
|
||||
(if (null? port)
|
||||
(Cyc-write-char char (current-output-port))
|
||||
|
|
Loading…
Add table
Reference in a new issue