tools.deploy.shaker: don't try to intern all word props anymore

db4
Slava Pestov 2010-02-04 17:40:18 +13:00
parent 7447fc1073
commit f20b4e5607
3 changed files with 6 additions and 22 deletions

View File

@ -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 )
[

View File

@ -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 )

View File

@ -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 ;