Fix bad interaction between annotations and generic words
parent
aed0ca0d19
commit
a71665d821
|
@ -30,6 +30,7 @@ M: generic definer drop f f ;
|
||||||
M: generic definition drop f ;
|
M: generic definition drop f ;
|
||||||
|
|
||||||
: make-generic ( word -- )
|
: make-generic ( word -- )
|
||||||
|
dup { "unannotated-def" } reset-props
|
||||||
dup dup "combination" word-prop perform-combination define ;
|
dup dup "combination" word-prop perform-combination define ;
|
||||||
|
|
||||||
TUPLE: method word def specializer generic loc ;
|
TUPLE: method word def specializer generic loc ;
|
||||||
|
|
Loading…
Reference in New Issue