compiler.tree.propagation.transforms: intersect and diff should return type of set2.

db4
John Benediktsson 2013-03-27 07:21:39 -07:00
parent 77a3641bb6
commit 5e0e6119e3
1 changed files with 2 additions and 2 deletions

View File

@ -302,12 +302,12 @@ CONSTANT: lookup-table-at-max 256
\ at* [ at-quot ] 1 define-partial-eval
: diff-quot ( seq -- quot: ( seq' -- seq'' ) )
tester '[ [ members [ @ not ] filter ] keep set-like ] ;
[ tester ] keep '[ members [ @ not ] filter _ set-like ] ;
M\ set diff [ diff-quot ] 1 define-partial-eval
: intersect-quot ( seq -- quot: ( seq' -- seq'' ) )
tester '[ [ members _ filter ] keep set-like ] ;
[ tester ] keep '[ members _ filter _ set-like ] ;
M\ set intersect [ intersect-quot ] 1 define-partial-eval