* 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

Binary file not shown.

View File

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