From 0dbf238f8314b8a1d1c158c20604415c98f6f2f6 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 10 Sep 2014 17:43:19 +0900 Subject: [PATCH] update benz (call-with-port) --- extlib/benz | 2 +- piclib/picrin/base.scm | 2 ++ piclib/scheme/base.scm | 5 ----- 3 files changed, 3 insertions(+), 6 deletions(-) diff --git a/extlib/benz b/extlib/benz index ac638daa..e376f261 160000 --- a/extlib/benz +++ b/extlib/benz @@ -1 +1 @@ -Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97 +Subproject commit e376f2614de8f6e72d8264db010a129c5d737d4a diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm index 4235938c..ba40aed0 100644 --- 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? diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm index 4a0778f0..711d9b41 100644 --- 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