* ikarus.fasl no longer uses $base-rtd
This commit is contained in:
parent
f06a1f302a
commit
f5acd68e4d
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -33,7 +33,7 @@
|
||||||
(library (ikarus fasl write)
|
(library (ikarus fasl write)
|
||||||
(export fasl-write)
|
(export fasl-write)
|
||||||
(import
|
(import
|
||||||
(only (scheme) $closure-code $base-rtd)
|
(only (scheme) $closure-code )
|
||||||
(except (ikarus) fasl-write))
|
(except (ikarus) fasl-write))
|
||||||
|
|
||||||
(define write-fixnum
|
(define write-fixnum
|
||||||
|
@ -111,7 +111,7 @@
|
||||||
[(record? x)
|
[(record? x)
|
||||||
(let ([rtd (record-type-descriptor x)])
|
(let ([rtd (record-type-descriptor x)])
|
||||||
(cond
|
(cond
|
||||||
[(eq? rtd $base-rtd)
|
[(eq? rtd (base-rtd))
|
||||||
;;; rtd record
|
;;; rtd record
|
||||||
(write-char #\R p)
|
(write-char #\R p)
|
||||||
(let ([names (record-type-field-names x)]
|
(let ([names (record-type-field-names x)]
|
||||||
|
@ -188,11 +188,11 @@
|
||||||
[(code? x)
|
[(code? x)
|
||||||
(make-graph (code-reloc-vector x) h)]
|
(make-graph (code-reloc-vector x) h)]
|
||||||
[(record? x)
|
[(record? x)
|
||||||
(when (eq? x $base-rtd)
|
(when (eq? x (base-rtd))
|
||||||
(error 'fasl-write "$base-rtd is not writable"))
|
(error 'fasl-write "$base-rtd is not writable"))
|
||||||
(let ([rtd (record-type-descriptor x)])
|
(let ([rtd (record-type-descriptor x)])
|
||||||
(cond
|
(cond
|
||||||
[(eq? rtd $base-rtd)
|
[(eq? rtd (base-rtd))
|
||||||
;;; this is an rtd
|
;;; this is an rtd
|
||||||
(make-graph (record-type-name x) h)
|
(make-graph (record-type-name x) h)
|
||||||
(make-graph (record-type-symbol x) h)
|
(make-graph (record-type-symbol x) h)
|
||||||
|
|
Loading…
Reference in New Issue