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
; (lambda ()
; ($do-overflow 4096)))
(library (ikarus collect)
(export)
(import (scheme))
(primitive-set! 'do-overflow
(define do-overflow
(lambda (n)
(foreign-call "ik_collect" n)
(void)))
(primitive-set! 'do-overflow do-overflow)
(primitive-set! 'do-overflow-words
(lambda (n)
(foreign-call "ik_collect" ($fxsll n 2))
@ -33,4 +35,4 @@
(primitive-set! 'dump-dirty-vector
(lambda ()
(foreign-call "ik_dump_dirty_vector")))
)