From 920f5dfd63710df403c95a2e862e6e02bc499d2d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 22 Jun 2015 21:14:34 -0400
Subject: [PATCH] Stub for call-with-port

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

diff --git a/scheme/base.sld b/scheme/base.sld
index d5148aa5..22185f2f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -55,6 +55,11 @@
     current-output-port
     current-input-port
     current-error-port
+    call-with-port
+    ; TODO: call-with-input-file
+    ; TODO: call-with-output-file
+    ; TODO: close-input-port
+    ; TODO: close-output-port
     error
     raise
     raise-continuable
@@ -84,6 +89,10 @@
           (after)
           result)))
           ;(apply values results))))
+    (define (call-with-port port proc)
+      (let ((result (proc port)))
+        (close-port port)
+        result))
     (define (Cyc-bin-op cmp x lst)
       (cond
         ((null? lst) #t)