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

* Added ~% to the format metas. 

* Exported string->list.
This commit is contained in:
Abdulaziz Ghuloum 2006-12-06 18:26:37 -05:00
parent 584e7706ea
commit 4143501988
5 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/Makefile
View File

@ -1,5 +1,5 @@
CFLAGS = -I/opt/local/include -Wall -DNDEBUG -O3 CFLAGS = -I/opt/local/include -Wall -DNDEBUG -O3 #-fomit-frame-pointer
#CFLAGS = -I/opt/local/include -Wall -g #CFLAGS = -I/opt/local/include -Wall -g
LDFLAGS = -L/opt/local/lib -g -ldl -lgmp -rdynamic LDFLAGS = -L/opt/local/lib -g -ldl -lgmp -rdynamic
CC = gcc CC = gcc

4
lab/streams.ss
View File

@ -1,4 +1,6 @@
;;; do optimize fx< fx<= fx= fx> fx>=
;;; do optimize fxzero?
;;; do optimize fxadd1 fxsub1 fx+ fx-
(module (s-car s-cdr (s-cons make-stream) stream? s-head) (module (s-car s-cdr (s-cons make-stream) stream? s-head)
(import scheme) (import scheme)
(define-record stream (car cdr)) (define-record stream (car cdr))

BIN
lib/ikarus.boot
View File

Binary file not shown.

3
lib/libwriter.ss
View File

@ -417,6 +417,9 @@
[($char= c #\~) [($char= c #\~)
(write-char #\~ p) (write-char #\~ p)
(f (fxadd1 i) args)] (f (fxadd1 i) args)]
[($char= c #\%)
(write-char #\newline p)
(f (fxadd1 i) args)]
[($char= c #\a) [($char= c #\a)
(when (null? args) (when (null? args)
(error who "insufficient arguments")) (error who "insufficient arguments"))

6
lib/makefile.ss
View File

@ -45,8 +45,8 @@
make-list length list-ref append make-vector vector-ref make-list length list-ref append make-vector vector-ref
vector-set! vector-length vector vector->list list->vector vector-set! vector-length vector vector->list list->vector
make-string string-ref string-set! string-length string make-string string-ref string-set! string-length string
list->string uuid string-append substring string=? string<? string->list list->string uuid string-append substring string=?
string<=? string>? string>=? remprop putprop getprop string<? string<=? string>? string>=? remprop putprop getprop
property-list apply map for-each andmap ormap memq memv assq property-list apply map for-each andmap ormap memq memv assq
assv assoc eq? eqv? equal? reverse string->symbol symbol->string assv assoc eq? eqv? equal? reverse string->symbol symbol->string
oblist top-level-value set-top-level-value! top-level-bound? oblist top-level-value set-top-level-value! top-level-bound?
@ -266,5 +266,5 @@
(format "cat ~a > ikarus.boot" (format "cat ~a > ikarus.boot"
(join " " (map caddr scheme-library-files)))) (join " " (map caddr scheme-library-files))))
(#%compiler-giveup-tally) ;(#%compiler-giveup-tally)