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

classes.tuple: don't run out of memory inside 'instances' quotation if optimizing compiler is off

db4
Slava Pestov 2009-09-02 05:19:20 -05:00
parent 988d845c61
commit 389f47086a
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/classes/tuple/tuple.factor
View File

@ -201,16 +201,14 @@ SYMBOL: outdated-tuples
slots>tuple ; slots>tuple ;
: outdated-tuple? ( tuple assoc -- ? ) : outdated-tuple? ( tuple assoc -- ? )
over tuple? [ [ [ layout-of ] dip key? ]
[ [ layout-of ] dip key? ] [ drop class "forgotten" word-prop not ]
[ drop class "forgotten" word-prop not ] 2bi and ;
2bi and
] [ 2drop f ] if ;
: update-tuples ( -- ) : update-tuples ( -- )
outdated-tuples get outdated-tuples get
dup assoc-empty? [ drop ] [ dup assoc-empty? [ drop ] [
[ outdated-tuple? ] curry instances [ [ tuple? ] instances ] dip [ outdated-tuple? ] curry filter
dup [ update-tuple ] map become dup [ update-tuple ] map become
] if ; ] if ;