steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/tools/deploy/shaker/shaker.factor
View File

@ -106,18 +106,12 @@ IN: tools.deploy.shaker
: strip-word-props ( stripped-props words -- ) : strip-word-props ( stripped-props words -- )
"Stripping word properties" show "Stripping word properties" show
[ swap '[
swap '[ [
[ [ drop _ member? not ] assoc-filter sift-assoc
[ drop _ member? not ] assoc-filter sift-assoc >alist f like
>alist f like ] change-props drop
] change-props drop ] each ;
] each
] [
H{ } clone '[
[ [ _ [ ] cache ] map ] change-props drop
] each
] bi ;
: stripped-word-props ( -- seq ) : stripped-word-props ( -- seq )
[ [

2
basis/tools/memory/memory.factor
View File

@ -242,8 +242,6 @@ M: code-blocks nth-unsafe
[ cache>> ] [ blocks>> ] bi [ cache>> ] [ blocks>> ] bi
'[ _ nth-unsafe <code-block> ] cache ; inline '[ _ nth-unsafe <code-block> ] cache ; inline
M: code-blocks hashcode* 2drop 0 ;
INSTANCE: code-blocks immutable-sequence INSTANCE: code-blocks immutable-sequence
: code-blocks ( -- blocks ) : code-blocks ( -- blocks )

8
core/classes/tuple/tuple-tests.factor
View File

@ -706,14 +706,6 @@ ERROR: derived-error < base-error z ;
[ (( x y z -- * )) ] [ \ derived-error stack-effect ] unit-test [ (( 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 ! Make sure that tuple reshaping updates code heap roots
TUPLE: code-heap-ref ; TUPLE: code-heap-ref ;