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

Use subset? word

db4
Slava Pestov 2008-05-01 20:02:45 -05:00
parent a1ea2655ed
commit 583d036e8a
1 changed files with 0 additions and 4 deletions
core/optimizer/def-use

4
core/optimizer/def-use/def-use-tests.factor
View File

@ -11,10 +11,6 @@ namespaces assocs kernel sequences math tools.test words ;
dataflow compute-def-use drop compute-dead-literals keys dataflow compute-def-use drop compute-dead-literals keys
[ value-literal ] map ; [ value-literal ] map ;
: subset? [ member? ] curry all? ;
: set= 2dup subset? >r swap subset? r> and ;
[ { [ + ] } ] [ [ { [ + ] } ] [
[ [ 1 2 3 ] [ + ] over drop drop ] kill-set [ [ 1 2 3 ] [ + ] over drop drop ] kill-set
] unit-test ] unit-test