steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/tools/deprecation/deprecation.factor
View File

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