1 files changed, 7 insertions, 12 deletions

@@ -5,17 +5,16 @@
                  edisplay
                  eprint))
 
-(import (srfi 1)
+(import (chicken io)
+        (srfi 1)
         (srfi 152))
 
 (define (edisplay x)
-  (parameterize ((current-output-port (current-error-port)))
-    (display x)))
+  (display x (current-error-port)))
 
 (define (eprint . xs)
-  (parameterize ((current-output-port (current-error-port)))
-    (for-each display xs)
-    (newline)))
+  (for-each edisplay xs)
+  (newline (current-error-port)))
 
 (define (assoc-ref k alist)
   (let ((k/v (and (pair? alist)
@@ -60,9 +59,5 @@
   (case-lambda
     (() (slurp (current-input-port)))
     ((port)
-     (let loop ((ch (read-char port))
-                (acc '()))
-       (if (eof-object? ch)
-           (list->string (reverse acc))
-           (loop (read-char port)
-                 (cons ch acc)))))))
+     (read-string #f port)              ; CHICKEN-ism
+     )))