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

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

4
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -302,12 +302,12 @@ CONSTANT: lookup-table-at-max 256
\ at* [ at-quot ] 1 define-partial-eval \ at* [ at-quot ] 1 define-partial-eval
: diff-quot ( seq -- quot: ( seq' -- seq'' ) ) : 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 M\ set diff [ diff-quot ] 1 define-partial-eval
: intersect-quot ( seq -- quot: ( seq' -- seq'' ) ) : 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 M\ set intersect [ intersect-quot ] 1 define-partial-eval