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.

1 files changed, 2 insertions, 8 deletions

diff --git a/src/mcron/utils.scm b/src/mcron/utils.scm
index ce2610c..062e756 100644
--- a/src/mcron/utils.scm
+++ b/src/mcron/utils.scm
@@ -29,10 +29,10 @@
             parse-args
             show-version
             show-package-information
-            stdin->string
             for-each-file
             process-update-request)
-  #:re-export (option-ref))
+  #:re-export (option-ref
+               read-string))
 
 (define (mcron-error exit-code . rest)
   "Print an error message (made up from the parts of REST), and if the
@@ -81,12 +81,6 @@ General help using GNU software: <http://www.gnu.org/gethelp/>\n"
 		 config-package-name
 		 config-package-url))
 
-(define (stdin->string)
-  "Return standard input as a string."
-  (with-output-to-string (lambda () (do ((in (read-char) (read-char)))
-                                        ((eof-object? in))
-                                        (display in)))))
-
 (define (for-each-file proc directory)
   "Apply PROC to each file in DIRECTORY.  DIRECTORY must be a valid directory name.
 PROC must be a procedure that take one file name argument.  The return value