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

* libcollect librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-30 00:50:10 -04:00
parent e953fff362
commit e028e37d0f
3 changed files with 8 additions and 6 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.

12
src/libcollect.ss
View File

@ -1,13 +1,15 @@
;(primitive-set! 'do-overflow (library (ikarus collect)
; (lambda () (export)
; ($do-overflow 4096))) (import (scheme))
(primitive-set! 'do-overflow (define do-overflow
(lambda (n) (lambda (n)
(foreign-call "ik_collect" n) (foreign-call "ik_collect" n)
(void))) (void)))
(primitive-set! 'do-overflow do-overflow)
(primitive-set! 'do-overflow-words (primitive-set! 'do-overflow-words
(lambda (n) (lambda (n)
(foreign-call "ik_collect" ($fxsll n 2)) (foreign-call "ik_collect" ($fxsll n 2))
@ -33,4 +35,4 @@
(primitive-set! 'dump-dirty-vector (primitive-set! 'dump-dirty-vector
(lambda () (lambda ()
(foreign-call "ik_dump_dirty_vector"))) (foreign-call "ik_dump_dirty_vector")))
)

2
src/makefile.ss
View File

@ -232,7 +232,7 @@
["libcontrol0.ss" "libcontrol0.fasl" p0 onepass] ["libcontrol0.ss" "libcontrol0.fasl" p0 onepass]
["libcontrol1.ss" "libcontrol1.fasl" p0 onepass] ["libcontrol1.ss" "libcontrol1.fasl" p0 onepass]
["libcollect.ss" "libcollect.fasl" p0 onepass] ["libcollect.ss" "libcollect.fasl" p0 onepass]
["librecord.ss" "librecord.fasl" p0 onepass] ["librecord.ss" "librecord.fasl" p0 onepass]
["libcxr.ss" "libcxr.fasl" p0 onepass] ["libcxr.ss" "libcxr.fasl" p0 onepass]
["libnumerics.ss" "libnumerics.fasl" p0 onepass] ["libnumerics.ss" "libnumerics.fasl" p0 onepass]
["libguardians.ss" "libguardians.fasl" p0 onepass] ["libguardians.ss" "libguardians.fasl" p0 onepass]