diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-24 00:38:21 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-12-28 22:19:04 +0100 |
| commit | d4b4ac5708385d500f566267719124c7c62572df (patch) | |
| tree | 623a438d81ed7f020838c5079f7f460971b3f11c /src/mcron/scripts | |
| parent | 2d6c072b47a72f9152b2d43d0ffa42f413f15713 (diff) | |
| download | mcron-d4b4ac5708385d500f566267719124c7c62572df.tar.gz mcron-d4b4ac5708385d500f566267719124c7c62572df.tar.bz2 mcron-d4b4ac5708385d500f566267719124c7c62572df.zip | |
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.
Diffstat (limited to 'src/mcron/scripts')
| -rw-r--r-- | src/mcron/scripts/crontab.scm | 2 | ||||
| -rw-r--r-- | src/mcron/scripts/mcron.scm | 2 |
2 files changed, 2 insertions, 2 deletions
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) |