word-xt broken
parent
fc0cea8e42
commit
06feb8ca68
|
|
@ -50,7 +50,7 @@ M: symbol definer drop \ SYMBOL: ;
|
||||||
[ nip remove-word-prop ] if ;
|
[ nip remove-word-prop ] if ;
|
||||||
|
|
||||||
GENERIC: word-xt ( word -- xt )
|
GENERIC: word-xt ( word -- xt )
|
||||||
M: word word-xt 7 integer-slot ;
|
M: word word-xt 8 integer-slot ;
|
||||||
|
|
||||||
SYMBOL: vocabularies
|
SYMBOL: vocabularies
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue