From 97d0fee765d95a126bb9f3a4fe16b50450a2da57 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 29 Jul 2015 22:17:07 -0400 Subject: [PATCH] Added flush-output-port --- scheme/base.sld | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 86e0c6d6..84733470 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -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))