update benz (call-with-port)

2014-09-10 17:43:19 +09:00
parent 9f5a1512b5
commit 0dbf238f83
3 changed files with 3 additions and 6 deletions
@@ -177,6 +177,8 @@
          current-output-port
          current-error-port

+          call-with-port
+
          port?
          input-port?
          output-port?
@@ -525,11 +525,6 @@

  ;; 6.13. Input and output

-  (define (call-with-port port proc)
-    (let ((value (proc port)))
-      (close-port port)
-      value))
-
  (export current-input-port
          current-output-port
          current-error-port