From 5e0e6119e388d0b60757da8f39f16ea6ed05eded Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 27 Mar 2013 07:21:39 -0700 Subject: [PATCH] compiler.tree.propagation.transforms: intersect and diff should return type of set2. --- basis/compiler/tree/propagation/transforms/transforms.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor index 92b7276c51..6fc10b797b 100644 --- a/basis/compiler/tree/propagation/transforms/transforms.factor +++ b/basis/compiler/tree/propagation/transforms/transforms.factor @@ -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