compiler.tree.propagation.transforms: also fix diff.
parent
c4d832ce4d
commit
77a3641bb6
|
@ -302,7 +302,7 @@ CONSTANT: lookup-table-at-max 256
|
|||
\ at* [ at-quot ] 1 define-partial-eval
|
||||
|
||||
: diff-quot ( seq -- quot: ( seq' -- seq'' ) )
|
||||
tester '[ [ [ @ not ] filter ] keep set-like ] ;
|
||||
tester '[ [ members [ @ not ] filter ] keep set-like ] ;
|
||||
|
||||
M\ set diff [ diff-quot ] 1 define-partial-eval
|
||||
|
||||
|
|
Loading…
Reference in New Issue