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/crontab.scm | |
| 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/crontab.scm')
| -rw-r--r-- | src/mcron/scripts/crontab.scm | 2 |
1 files changed, 1 insertions, 1 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)))) |