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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

4
src/makefile.ss
View File

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