[ check-annotate-twice ] dip
[ dup def>> 2dup "unannotated-def" set-word-prop ] dip ;
-GENERIC# (annotate) 1 ( word quot -- )
+GENERIC#: (annotate) 1 ( word quot -- )
M: generic (annotate)
'[ _ (annotate) ] annotate-generic ;
prepare-annotate
call( old -- new ) define ;
-GENERIC# (deep-annotate) 1 ( word quot -- )
+GENERIC#: (deep-annotate) 1 ( word quot -- )
M: generic (deep-annotate)
'[ _ (deep-annotate) ] annotate-generic ;