diff --git a/src/ikarus.boot b/src/ikarus.boot index 8ebe9ab..5cd17e9 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/makefile.ss b/src/makefile.ss index f226210..5a27ff1 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -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