tools.deploy.shaker: don't try to intern all word props anymore
parent
7447fc1073
commit
f20b4e5607
|
@ -106,18 +106,12 @@ IN: tools.deploy.shaker
|
|||
|
||||
: strip-word-props ( stripped-props words -- )
|
||||
"Stripping word properties" show
|
||||
[
|
||||
swap '[
|
||||
[
|
||||
[ drop _ member? not ] assoc-filter sift-assoc
|
||||
>alist f like
|
||||
] change-props drop
|
||||
] each
|
||||
] [
|
||||
H{ } clone '[
|
||||
[ [ _ [ ] cache ] map ] change-props drop
|
||||
] each
|
||||
] bi ;
|
||||
swap '[
|
||||
[
|
||||
[ drop _ member? not ] assoc-filter sift-assoc
|
||||
>alist f like
|
||||
] change-props drop
|
||||
] each ;
|
||||
|
||||
: stripped-word-props ( -- seq )
|
||||
[
|
||||
|
|
|
@ -242,8 +242,6 @@ M: code-blocks nth-unsafe
|
|||
[ cache>> ] [ blocks>> ] bi
|
||||
'[ _ nth-unsafe <code-block> ] cache ; inline
|
||||
|
||||
M: code-blocks hashcode* 2drop 0 ;
|
||||
|
||||
INSTANCE: code-blocks immutable-sequence
|
||||
|
||||
: code-blocks ( -- blocks )
|
||||
|
|
|
@ -706,14 +706,6 @@ ERROR: derived-error < base-error z ;
|
|||
|
||||
[ (( x y z -- * )) ] [ \ derived-error stack-effect ] unit-test
|
||||
|
||||
USE: classes.struct
|
||||
|
||||
[ { } ] [
|
||||
classes
|
||||
[ "prototype" word-prop ] map
|
||||
[ '[ _ hashcode drop f ] [ drop t ] recover ] filter
|
||||
] unit-test
|
||||
|
||||
! Make sure that tuple reshaping updates code heap roots
|
||||
TUPLE: code-heap-ref ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue