diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor index 9b760953ae..236fd49418 100644 --- a/basis/tools/deprecation/deprecation.factor +++ b/basis/tools/deprecation/deprecation.factor @@ -11,9 +11,9 @@ SYMBOL: deprecation-notes 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 ; @@ -29,12 +29,12 @@ T{ error-type { forget-quot [ deprecation-notes get delete-at ] } } define-error-type -: ( error word -- deprecation-note ) - \ deprecation-note ; +: ( error word -- deprecation-note ) + \ deprecation-note-error ; : deprecation-note ( word usages -- ) [ deprecated-usages boa ] - [ drop ] + [ drop ] [ drop deprecation-notes get-global set-at ] 2tri ; : clear-deprecation-note ( word -- )