From b7309e07bfae12804c78b597e1ff4fcd176f36c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 23 Dec 2019 23:58:23 +0100
Subject: Move open-{input,output}-port to (util io).

---
 module/util/io.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 module/util/io.scm

(limited to 'module/util')

diff --git a/module/util/io.scm b/module/util/io.scm
new file mode 100644
index 00000000..cff9c6ea
--- /dev/null
+++ b/module/util/io.scm
@@ -0,0 +1,11 @@
+(define-module (util io))
+
+(define-public (open-input-port str)
+  (if (string=? "-" str)
+      (current-input-port)
+      (open-input-file str)))
+
+(define-public (open-output-port str)
+  (if (string=? "-" str)
+      (current-output-port)
+      (open-output-file str)))
-- 
cgit v1.2.3