From c39ddde3074841536f38bfc065231b40fc20ed65 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 16 Nov 2023 00:35:37 +0100 Subject: Remove unused open-{input,output}-port. --- module/hnh/util/io.scm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'module/hnh/util/io.scm') 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) -- cgit v1.2.3