diff options
author | Andy Wingo <wingo@pobox.com> | 2021-01-12 12:17:55 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-01-12 12:17:55 +0100 |
commit | 1820ed512135ea61f4b453a8cc0dc75f1e91b463 (patch) | |
tree | eb668113fe3dc559843f54a31a886db0ab4939c6 /module/rnrs | |
parent | 0f42fef11981f38578bbd629a294b2053d258db0 (diff) | |
download | guile-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.scm | 9 |
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) |