compiler.tree.propagation.known-words: retry this change, some issue with use vocabs.

db4
John Benediktsson 2013-01-22 07:09:49 -08:00
parent f5c898734c
commit 5a7e7b8d9b
1 changed files with 13 additions and 0 deletions

View File

@ -9,6 +9,7 @@ combinators generic.math splitting fry locals classes.tuple
alien.accessors classes.tuple.private slots.private definitions alien.accessors classes.tuple.private slots.private definitions
strings.private vectors hashtables generic quotations alien strings.private vectors hashtables generic quotations alien
alien.data alien.data.private alien.data alien.data.private
strings sbufs byte-arrays byte-vectors
stack-checker.dependencies stack-checker.dependencies
compiler.tree.comparisons compiler.tree.comparisons
compiler.tree.propagation.info compiler.tree.propagation.info
@ -240,6 +241,18 @@ generic-comparison-ops [
'[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
] assoc-each ] assoc-each
{
{ >array array }
{ >vector vector }
{ >string string }
{ >sbuf sbuf }
{ >byte-array byte-array }
{ >byte-vector byte-vector }
{ >hashtable hashtable }
} [
'[ drop _ <class-info> ] "outputs" set-word-prop
] assoc-each
{ numerator denominator } { numerator denominator }
[ [ drop integer <class-info> ] "outputs" set-word-prop ] each [ [ drop integer <class-info> ] "outputs" set-word-prop ] each