new accessors
parent
582aeaf73a
commit
0f3d585dd2
|
@ -216,7 +216,7 @@ SYMBOL: interactive-vocabs
|
||||||
: filter-moved ( assoc1 assoc2 -- seq )
|
: filter-moved ( assoc1 assoc2 -- seq )
|
||||||
swap assoc-diff [
|
swap assoc-diff [
|
||||||
drop where dup [ first ] when
|
drop where dup [ first ] when
|
||||||
file get source-file-path =
|
file get path>> =
|
||||||
] assoc-filter keys ;
|
] assoc-filter keys ;
|
||||||
|
|
||||||
: removed-definitions ( -- assoc1 assoc2 )
|
: removed-definitions ( -- assoc1 assoc2 )
|
||||||
|
|
Loading…
Reference in New Issue