descriptive: update for tools.annotations change
parent
ef73bc6732
commit
0dffd311a5
|
@ -28,7 +28,7 @@ PRIVATE>
|
||||||
|
|
||||||
: make-descriptive ( word -- )
|
: make-descriptive ( word -- )
|
||||||
dup [ ] [ def>> ] [ stack-effect ] tri [descriptive]
|
dup [ ] [ def>> ] [ stack-effect ] tri [descriptive]
|
||||||
'[ drop _ ] annotate-methods ;
|
'[ drop _ ] annotate ;
|
||||||
|
|
||||||
: define-descriptive ( word def effect -- )
|
: define-descriptive ( word def effect -- )
|
||||||
[ drop "descriptive-definition" set-word-prop ]
|
[ drop "descriptive-definition" set-word-prop ]
|
||||||
|
|
Loading…
Reference in New Issue