* removed reference to *current-input-port* in ikarus.io-primitives

and rewritten it as (current-input-port)
2007-05-05 19:55:53 -04:00 · 2007-05-05 19:55:53 -04:00 · e33b2a29e3
parent 51170afb36
commit e33b2a29e3
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.io-primitives.ss
+++ b/src/ikarus.io-primitives.ss
@ -58,7 +58,7 @@

  (define read-char
    (case-lambda
-      [() ($read-char *current-input-port*)]
+      [() ($read-char (current-input-port))]
      [(p)
       (if (input-port? p)
           ($read-char p)