update benz (call-with-port)

2014-09-10 17:43:19 +09:00 · 2014-09-10 17:43:19 +09:00 · 0dbf238f83
parent 9f5a1512b5
commit 0dbf238f83
3 changed files with 3 additions and 6 deletions
--- a/extlib/benz
+++ b/extlib/benz
@ -1 +1 @@
-Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97
+Subproject commit e376f2614de8f6e72d8264db010a129c5d737d4a
--- a/piclib/picrin/base.scm
+++ b/piclib/picrin/base.scm
@ -177,6 +177,8 @@
          current-output-port
          current-error-port

+          call-with-port
+
          port?
          input-port?
          output-port?
--- a/piclib/scheme/base.scm
+++ b/piclib/scheme/base.scm
@ -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