shithub: sl

Info  •  Files  •  Log  •  Branches

scheme alises: flush-output-port

--- a/aliases.scm

+++ b/aliases.scm

@@ -124,6 +124,8 @@

   (set! *input-stream* p))

 (define (current-output-port (p *output-stream*))

   (set! *output-stream* p))

+(define (flush-output-port (p *output-stream*))

+  (io-flush p))

 (define input-port-line io-line)