collect is added to the set of public primitives

This commit is contained in:
Abdulaziz Ghuloum 2006-12-24 11:50:19 +03:00
parent f729a725d2
commit 1e572559b7
2 changed files with 2 additions and 2 deletions

Binary file not shown.

View File

@ -83,7 +83,7 @@
file-exists? delete-file + - add1 sub1 * expt
quotient+remainder quotient remainder number? positive?
negative? zero? number->string logand = < > <= >=
make-guardian weak-cons
make-guardian weak-cons collect
))
(define system-primitives
@ -108,7 +108,7 @@
code-size code-ref code-set! $frame->continuation $fp-at-base
$current-frame $arg-list $seal-frame-and-call
$make-call-with-values-procedure $make-values-procedure
do-overflow collect $make-tcbucket $tcbucket-next $tcbucket-key
do-overflow $make-tcbucket $tcbucket-next $tcbucket-key
$tcbucket-val $set-tcbucket-next! $set-tcbucket-val!
$set-tcbucket-tconc! $tcbucket-dlink-prev $tcbucket-dlink-next
$set-tcbucket-dlink-prev! $set-tcbucket-dlink-next! call/cf