diff --git a/src/ikarus.boot b/src/ikarus.boot index a18a21c..fc0107c 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libcollect.ss b/src/libcollect.ss index 666e4c9..ac0f7e3 100644 --- a/src/libcollect.ss +++ b/src/libcollect.ss @@ -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"))) - +) diff --git a/src/makefile.ss b/src/makefile.ss index 94ab39c..59d0298 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -232,7 +232,7 @@ ["libcontrol0.ss" "libcontrol0.fasl" p0 onepass] ["libcontrol1.ss" "libcontrol1.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] ["libnumerics.ss" "libnumerics.fasl" p0 onepass] ["libguardians.ss" "libguardians.fasl" p0 onepass]