From af9f2b87d2a318a8425201761da9dd71f3116db8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 10 Jun 2015 23:07:04 -0400
Subject: [PATCH] Return actual port from current-output-port

---
 scheme/base.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 647ba5b6..ff910029 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -283,7 +283,7 @@
            (else
              (error "bad parameter syntax"))))))
     (define current-output-port
-      (make-parameter 'TODO-Cyc-stdout)) ;; TODO: need to expose stdout as a port obj
+      (make-parameter (Cyc-stdout)))
     (define (error msg . args)
       (raise (cons msg args)))
     (define (raise obj)