summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-01-12 12:17:55 +0100
committerAndy Wingo <wingo@pobox.com>2021-01-12 12:17:55 +0100
commit1820ed512135ea61f4b453a8cc0dc75f1e91b463 (patch)
treeeb668113fe3dc559843f54a31a886db0ab4939c6 /module/rnrs
parent0f42fef11981f38578bbd629a294b2053d258db0 (diff)
downloadguile-1820ed512135ea61f4b453a8cc0dc75f1e91b463.tar.gz
Finish call-with-port cleanup
* module/rnrs/io/ports.scm (call-with-port): Remove local definition. * module/system/repl/server.scm (system): Call-with-port is imported via (ice-9 ports).
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/io/ports.scm9
1 files changed, 0 insertions, 9 deletions
diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index c19aee9af..71d1b394d 100644
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -331,15 +331,6 @@ read from/written to in @var{port}."
(and (false-if-exception (set-port-position! port (port-position port)))
#t))
-(define (call-with-port port proc)
- "Call @var{proc}, passing it @var{port} and closing @var{port} upon exit of
-@var{proc}. Return the return values of @var{proc}."
- (call-with-values
- (lambda () (proc port))
- (lambda vals
- (close-port port)
- (apply values vals))))
-
(define* (call-with-bytevector-output-port proc #:optional (transcoder #f))
(receive (port extract) (open-bytevector-output-port transcoder)
(call-with-port port proc)