Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 06:47:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added flush-output-port

Browse source
This commit is contained in:
Justin Ethier 2015-07-29 22:17:07 -04:00
parent bc14eb2a80
commit 97d0fee765
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/base.sld
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))