* top-rib is now unsealed after we're done with it.
This commit is contained in:
parent
24f07a7d66
commit
bb3dac193f
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -117,6 +117,12 @@
|
||||||
(list->vector (rib-label* rib)))
|
(list->vector (rib-label* rib)))
|
||||||
(set-rib-sealed/freq! rib
|
(set-rib-sealed/freq! rib
|
||||||
(make-vector (vector-length sym*) 0))))))
|
(make-vector (vector-length sym*) 0))))))
|
||||||
|
(define (unseal-rib! rib)
|
||||||
|
(when (rib-sealed/freq rib)
|
||||||
|
(set-rib-sealed/freq! rib #f)
|
||||||
|
(set-rib-sym*! rib (vector->list (rib-sym* rib)))
|
||||||
|
(set-rib-mark**! rib (vector->list (rib-mark** rib)))
|
||||||
|
(set-rib-label*! rib (vector->list (rib-label* rib)))))
|
||||||
(define datum->stx
|
(define datum->stx
|
||||||
(lambda (id datum)
|
(lambda (id datum)
|
||||||
(make-stx datum (stx-mark* id) (stx-subst* id))))
|
(make-stx datum (stx-mark* id) (stx-subst* id))))
|
||||||
|
@ -2134,6 +2140,7 @@
|
||||||
(append
|
(append
|
||||||
(map build-export lex*)
|
(map build-export lex*)
|
||||||
(chi-expr* init* r mr))))])
|
(chi-expr* init* r mr))))])
|
||||||
|
(unseal-rib! rib)
|
||||||
(let-values ([(export-subst export-env)
|
(let-values ([(export-subst export-env)
|
||||||
(find-exports exp-int* exp-ext* rib r)])
|
(find-exports exp-int* exp-ext* rib r)])
|
||||||
(values
|
(values
|
||||||
|
|
Loading…
Reference in New Issue