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
|
\ at* [ at-quot ] 1 define-partial-eval
|
||||||
|
|
||||||
: diff-quot ( seq -- quot: ( seq' -- seq'' ) )
|
: 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
|
M\ set diff [ diff-quot ] 1 define-partial-eval
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue