conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

and rewritten it as (current-input-port)
This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 19:55:53 -04:00
parent 51170afb36
commit e33b2a29e3
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/ikarus.io-primitives.ss
View File

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