* Added (r6rs i/o simple) library

This commit is contained in:
Abdulaziz Ghuloum 2007-06-18 02:57:32 +03:00
parent ab6162d2a7
commit baafbed761
3 changed files with 9 additions and 3 deletions

View File

@ -6,7 +6,11 @@
(library (r6rs-benchmarks slatex)
(export main)
(import (r6rs) (r6rs mutable-pairs) (r6rs-benchmarks))
(import
(r6rs)
(r6rs unicode)
(r6rs mutable-pairs)
(r6rs-benchmarks))
(define *op-sys* 'unix)

Binary file not shown.

View File

@ -120,6 +120,7 @@
[rfl (r6rs arithmetic flonums) #t]
[mutable-pairs (r6rs mutable-pairs) #t]
[unicode (r6rs unicode) #t]
[ios (r6rs i/o simple) #t]
[cm (chez modules) #t]
[$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f]
@ -154,6 +155,7 @@
[mutable-pairs (r6rs mutable-pairs) #t]
[unicode (r6rs unicode) #t]
[rfl (r6rs arithmetic flonums) #t]
[ios (r6rs i/o simple) #t]
[cm (chez modules) #t]
[$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f]
@ -317,7 +319,7 @@
[string-set! i r]
[string-length i r]
[string=? i r]
[string-ci=? i r]
[string-ci=? i unicode]
[substring i r]
[string-append i r]
[string->list i r]
@ -510,7 +512,7 @@
[read i r]
[read-char i r]
[read-token i]
[peek-char i]
[peek-char i ios]
[unread-char i]
[newline i r]
[printf i]