* libcollect is renamed ikarus.collect.ss

* ikarus.collect.ss exports its ids.

src/ikarus.collect.ss

@@ -1,38 +1,38 @@
 
 (library (ikarus collect)
-  (export)
+  (export do-overflow do-overflow-words do-vararg-overflow collect
-  (import (scheme))
+          do-stack-overflow)
+  (import (ikarus) 
+          (only (scheme) $fxsll))
 
 (define do-overflow
   (lambda (n)
     (foreign-call "ik_collect" n)
     (void)))
 
-(primitive-set! 'do-overflow do-overflow)
+(define do-overflow-words
-
-(primitive-set! 'do-overflow-words
   (lambda (n)
     (foreign-call "ik_collect" ($fxsll n 2))
     (void)))
 
-(primitive-set! 'do-vararg-overflow
+(define do-vararg-overflow
   (lambda (n)
     (foreign-call "ik_collect_vararg" n)
     (void)))
 
-(primitive-set! 'collect
+(define collect
   (lambda ()
     (do-overflow 4096)))
 
-(primitive-set! 'do-stack-overflow
+(define do-stack-overflow
   (lambda ()
     (foreign-call "ik_stack_overflow")))
 
-(primitive-set! 'dump-metatable
+(define dump-metatable
   (lambda ()
     (foreign-call "ik_dump_metatable")))
 
-(primitive-set! 'dump-dirty-vector
+(define dump-dirty-vector
   (lambda ()
     (foreign-call "ik_dump_dirty_vector")))
 )

src/makefile.ss

@@ -23,7 +23,7 @@
     ;;;
     '("ikarus.handlers.ss"
       "ikarus.control.ss"
-      "libcollect.ss"
+      "ikarus.collect.ss"
       "librecord.ss"
       "libcxr.ss"
       "libnumerics.ss"
@@ -514,6 +514,12 @@
       [fx+-types-error                   s]
       [fx+-overflow-error                s]
       [$do-event                         s]
+      [do-overflow            s]
+      [do-overflow-words      s]
+      [do-vararg-overflow     s]
+      [collect                s]
+      [do-stack-overflow      s]
+
       ))