From 7905d9b1813ce5c909f46cb2515fde3b21c88fb0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 10 Jun 2015 21:23:55 -0400
Subject: [PATCH] Stub for current-output-port

---
 scheme/base.sld | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index c2bf7b52..1cdf4149 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -51,6 +51,9 @@
     vector->string
     string->vector
     make-parameter
+    current-output-port
+    ;current-input-port
+    ;current-error-port
     error
     raise
     raise-continuable
@@ -279,6 +282,8 @@
              converter)
            (else
              (error "bad parameter syntax"))))))
+    (define (current-output-port)
+      (make-parameter 'TODO-Cyc-stdout)) ;; TODO: need to expose stdout as a port obj
     (define (error msg . args)
       (raise (cons msg args)))
     (define (raise obj)