Fix multi-methods
parent
d50d6a59ef
commit
a7a2fb4a00
|
@ -70,6 +70,9 @@ PREDICATE: method-body < word
|
||||||
M: method-body stack-effect
|
M: method-body stack-effect
|
||||||
"multi-method" word-prop method-generic stack-effect ;
|
"multi-method" word-prop method-generic stack-effect ;
|
||||||
|
|
||||||
|
M: method-body crossref?
|
||||||
|
drop t ;
|
||||||
|
|
||||||
: method-word-name ( classes generic -- string )
|
: method-word-name ( classes generic -- string )
|
||||||
[
|
[
|
||||||
word-name %
|
word-name %
|
||||||
|
|
Loading…
Reference in New Issue