* 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
parent 51170afb36
commit e33b2a29e3
2 changed files with 1 additions and 1 deletions
@@ -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)