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

* cleanup of input-files

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:30:08 -04:00
parent 190f360daf
commit 00075f13d0
2 changed files with 5 additions and 4 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.

9
src/ikarus.io.input-files.ss
View File

@ -3,10 +3,11 @@
(export open-input-file current-input-port console-input-port (export open-input-file current-input-port console-input-port
with-input-from-file call-with-input-file) with-input-from-file call-with-input-file)
(import (import
(only (scheme) $set-port-input-size! $set-port-input-index! (ikarus system $ports)
$string-ref $string-set! $port-input-buffer $port-input-size (ikarus system $io)
$port-input-index $peek-char $read-char (ikarus system $fx)
$fx= $fx< $fx> $fx>= $fxadd1 $fxsub1) (ikarus system $strings)
(ikarus system $chars)
(except (ikarus) (except (ikarus)
open-input-file current-input-port console-input-port open-input-file current-input-port console-input-port
with-input-from-file call-with-input-file with-input-from-file call-with-input-file