diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:35:37 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
commit | c39ddde3074841536f38bfc065231b40fc20ed65 (patch) | |
tree | 8ec9a93f277aed051a8b462aecbce9cfbbfd1121 /module | |
parent | Ignore coverage for util atomic. (diff) | |
download | calp-c39ddde3074841536f38bfc065231b40fc20ed65.tar.gz calp-c39ddde3074841536f38bfc065231b40fc20ed65.tar.xz |
Remove unused open-{input,output}-port.
Diffstat (limited to 'module')
-rw-r--r-- | module/hnh/util/io.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/module/hnh/util/io.scm b/module/hnh/util/io.scm index f6f97ef9..118c4a20 100644 --- a/module/hnh/util/io.scm +++ b/module/hnh/util/io.scm @@ -1,23 +1,12 @@ (define-module (hnh util io) :use-module ((hnh util) :select (begin1)) :use-module ((ice-9 rdelim) :select (read-line)) - :export (open-input-port - open-output-port - read-lines + :export (read-lines with-atomic-output-to-file call-with-tmpfile displayln ->port)) -(define (open-input-port str) - (if (string=? "-" str) - (current-input-port) - (open-input-file str))) - -(define (open-output-port str) - (if (string=? "-" str) - (current-output-port) - (open-output-file str))) (define (read-lines port) |