Simplify inline? now that generic words can't be inline anymore
parent
eef45a1cc3
commit
4858a2ea74
|
@ -76,9 +76,6 @@ TUPLE: check-method class generic ;
|
|||
PREDICATE: method-body < word
|
||||
"method-generic" word-prop >boolean ;
|
||||
|
||||
M: method-body inline?
|
||||
"method-generic" word-prop inline? ;
|
||||
|
||||
M: method-body stack-effect
|
||||
"method-generic" word-prop stack-effect ;
|
||||
|
||||
|
|
|
@ -79,9 +79,6 @@ M: engine-word stack-effect
|
|||
[ extra-values ] [ stack-effect ] bi
|
||||
dup [ clone [ length + ] change-in ] [ 2drop f ] if ;
|
||||
|
||||
M: engine-word inline?
|
||||
"tuple-dispatch-generic" word-prop inline? ;
|
||||
|
||||
M: engine-word crossref? "forgotten" word-prop not ;
|
||||
|
||||
M: engine-word irrelevant? drop t ;
|
||||
|
|
|
@ -135,9 +135,7 @@ compiled-generic-crossref global [ H{ } assoc-like ] change-at
|
|||
[ compiled-generic-crossref get delete-at ]
|
||||
tri ;
|
||||
|
||||
GENERIC: inline? ( word -- ? )
|
||||
|
||||
M: word inline? "inline" word-prop ;
|
||||
: inline? ( word -- ? ) "inline" word-prop ; inline
|
||||
|
||||
SYMBOL: visited
|
||||
|
||||
|
|
Loading…
Reference in New Issue