tools.deprecation: don't bail out if a word's usages are not all words

db4
Slava Pestov 2009-08-28 05:31:27 -05:00
parent 282d6e9acc
commit a96743d375
1 changed files with 8 additions and 6 deletions

View File

@ -39,12 +39,14 @@ T{ error-type
: clear-deprecation-note ( word -- )
deprecation-notes get-global delete-at ;
: check-deprecations ( word -- )
dup "forgotten" word-prop
[ clear-deprecation-note ] [
dup def>> uses [ deprecated? ] filter
[ clear-deprecation-note ] [ >array deprecation-note ] if-empty
] if ;
: check-deprecations ( usage -- )
dup word? [
dup "forgotten" word-prop
[ clear-deprecation-note ] [
dup def>> uses [ deprecated? ] filter
[ clear-deprecation-note ] [ >array deprecation-note ] if-empty
] if
] [ drop ] if ;
M: deprecated-usages summary
drop "Deprecated words used" ;