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

tools.deprecation: Rename deprecation-note

db4
Doug Coleman 2013-03-23 16:48:41 -07:00
parent c1b4bcb58e
commit 50bf20bca4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,9 +11,9 @@ SYMBOL: deprecation-notes
deprecation-notes [ H{ } clone ] initialize deprecation-notes [ H{ } clone ] initialize
TUPLE: deprecation-note < source-file-error ; TUPLE: deprecation-note-error < source-file-error ;
M: deprecation-note error-type drop +deprecation-note+ ; M: deprecation-note-error error-type drop +deprecation-note+ ;
TUPLE: deprecated-usages asset usages ; TUPLE: deprecated-usages asset usages ;
@ -29,12 +29,12 @@ T{ error-type
{ forget-quot [ deprecation-notes get delete-at ] } { forget-quot [ deprecation-notes get delete-at ] }
} define-error-type } define-error-type
: <deprecation-note> ( error word -- deprecation-note ) : <deprecation-note-error> ( error word -- deprecation-note )
\ deprecation-note <definition-error> ; \ deprecation-note-error <definition-error> ;
: deprecation-note ( word usages -- ) : deprecation-note ( word usages -- )
[ deprecated-usages boa ] [ deprecated-usages boa ]
[ drop <deprecation-note> ] [ drop <deprecation-note-error> ]
[ drop deprecation-notes get-global set-at ] 2tri ; [ drop deprecation-notes get-global set-at ] 2tri ;
: clear-deprecation-note ( word -- ) : clear-deprecation-note ( word -- )