From d4b4ac5708385d500f566267719124c7c62572df Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sun, 24 Jul 2016 00:38:21 +0200
Subject: utils: Remove unneeded 'stdin->string' procedure.
* src/mcron/utils.scm: Re-export 'read-string'.
(stdin->string): Delete.
* src/mcron/scripts/crontab.scm (main): Use 'read-string' instead.
* src/mcron/scripts/mcron.scm (process-user-file): Likewise.
---
src/mcron/scripts/crontab.scm | 2 +-
src/mcron/scripts/mcron.scm | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/mcron/scripts')
diff --git a/src/mcron/scripts/crontab.scm b/src/mcron/scripts/crontab.scm
index cf6673a..502fec6 100644
--- a/src/mcron/scripts/crontab.scm
+++ b/src/mcron/scripts/crontab.scm
@@ -210,7 +210,7 @@
(let ((input-file (car (option-ref opts '() '()))))
(catch-mcron-error
(if (string=? input-file "-")
- (let ((input-string (stdin->string)))
+ (let ((input-string (read-string)))
(read-vixie-port (open-input-string input-string))
(with-output-to-file crontab-file
(λ () (display input-string))))
diff --git a/src/mcron/scripts/mcron.scm b/src/mcron/scripts/mcron.scm
index 7b82cf3..b6c7729 100644
--- a/src/mcron/scripts/mcron.scm
+++ b/src/mcron/scripts/mcron.scm
@@ -63,7 +63,7 @@ silently ignored."
(cond ((string=? "-" file-name)
(if (string=? input "vixie")
(read-vixie-port (current-input-port))
- (eval-string (stdin->string))))
+ (eval-string (read-string))))
((or guile-syntax? (regexp-exec guile-regexp file-name))
(load file-name))
((regexp-exec vixie-regexp file-name)
--
cgit v1.2.3