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

* cleanup of io-ports.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:25:53 -04:00
parent e976ee649b
commit 79408d142d
2 changed files with 3 additions and 8 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.

11
src/ikarus.io-ports.ss
View File

@ -8,14 +8,9 @@
port-output-index set-port-output-index! port-output-index set-port-output-index!
port-output-size set-port-output-size!) port-output-size set-port-output-size!)
(import (import
(only (scheme) $make-port/input $make-port/output (ikarus system $ports)
$make-port/both $port-handler (ikarus system $strings)
$port-input-buffer $port-output-buffer (ikarus system $fx)
$port-input-index $set-port-input-index!
$port-input-size $set-port-input-size!
$port-output-index $set-port-output-index!
$port-output-size $set-port-output-size!
$string-length $fx<= $fx>=)
(except (ikarus) make-input-port make-output-port (except (ikarus) make-input-port make-output-port
make-input/output-port port-handler make-input/output-port port-handler
port-input-buffer port-output-buffer port-input-buffer port-output-buffer