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

* cleanip of unsafe io primitives.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:28:21 -04:00
parent ab49f9ee42
commit 190f360daf
2 changed files with 3 additions and 7 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.

10
src/ikarus.io-primitives.unsafe.ss
View File

@ -5,13 +5,9 @@
$close-input-port $close-output-port) $close-input-port $close-output-port)
(import (import
(ikarus) (ikarus)
(only (scheme) $port-handler $port-output-buffer (ikarus system $ports)
$set-port-output-index! $port-output-size (ikarus system $strings)
$set-port-input-index! $port-input-buffer $port-input-size (ikarus system $fx))
$set-port-input-size!
$port-input-index
$fxadd1 $fxsub1 $fx< $fx>= $string-ref
$string-length $string-set!))
(define $write-char (define $write-char
(lambda (c p) (lambda (c p)