blob: cff9c6ea3d60ba4e1d101ec7fe779f0ce5fa6f2a (
plain)
1
2
3
4
5
6
7
8
9
10
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)))
|