new accessors

db4
Doug Coleman 2008-08-30 12:34:45 -05:00
parent 582aeaf73a
commit 0f3d585dd2
1 changed files with 1 additions and 1 deletions

View File

@ -216,7 +216,7 @@ SYMBOL: interactive-vocabs
: filter-moved ( assoc1 assoc2 -- seq )
swap assoc-diff [
drop where dup [ first ] when
file get source-file-path =
file get path>> =
] assoc-filter keys ;
: removed-definitions ( -- assoc1 assoc2 )