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

* If I add one data, the program crashes. This commit is to revert 

to the last code that builds before I screw it up.
This commit is contained in:
Abdulaziz Ghuloum 2006-12-03 15:32:40 -05:00
parent bdcfd8beb0
commit 261a5d4ff8
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/ikarus.boot
View File

Binary file not shown.

5
lib/libfasl.ss
View File

@ -25,7 +25,8 @@
;;; "{" + field-count + rtd + fields ;;; "{" + field-count + rtd + fields
;;; ">" + 4-bytes(i) : mark the next object with index i ;;; ">" + 4-bytes(i) : mark the next object with index i
;;; "<" + 4-bytes(i) : dereference the object marked with index i ;;; "<" + 4-bytes(i) : dereference the object marked with index i
;;; ;;; "x" : denotes code
;;; "T" : Thunk; followed by code.
(let () (let ()
@ -195,6 +196,8 @@
(lambda (name) (lambda (name)
(make-graph ((record-field-accessor rtd name) x) h)) (make-graph ((record-field-accessor rtd name) x) h))
(record-type-field-names rtd))]))] (record-type-field-names rtd))]))]
;[(procedure? x)
; (make-graph ($closure-code x) h)]
[else (error 'fasl-write "~s is not fasl-writable" x)])])))) [else (error 'fasl-write "~s is not fasl-writable" x)])]))))
(define do-fasl-write (define do-fasl-write
(lambda (x port) (lambda (x port)

6
lib/makefile.ss
View File

@ -132,9 +132,9 @@
$symbol-plist $sc-put-cte $record? $record/rtd? $record-set! $symbol-plist $sc-put-cte $record? $record/rtd? $record-set!
$record-ref $record-rtd $make-record $record $base-rtd $code? $record-ref $record-rtd $make-record $record $base-rtd $code?
$code-reloc-vector $code-freevars $code-size $code-ref $code-reloc-vector $code-freevars $code-size $code-ref
$code-set! $code->closure list*->code* make-code code? $code-set! $code->closure list*->code* make-code
set-code-reloc-vector! code-reloc-vector code-freevars code-size code? set-code-reloc-vector! code-reloc-vector code-freevars
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 collect $make-tcbucket $tcbucket-next $tcbucket-key