diff --git a/core/generic/generic.factor b/core/generic/generic.factor index cb5f9f3791..e2818a51b2 100644 --- a/core/generic/generic.factor +++ b/core/generic/generic.factor @@ -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 ; diff --git a/core/generic/standard/engines/tuple/tuple.factor b/core/generic/standard/engines/tuple/tuple.factor index 04368099fb..78a97547fd 100644 --- a/core/generic/standard/engines/tuple/tuple.factor +++ b/core/generic/standard/engines/tuple/tuple.factor @@ -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 ; diff --git a/core/words/words.factor b/core/words/words.factor index 8a4f7e7bd2..66c60dc06e 100644 --- a/core/words/words.factor +++ b/core/words/words.factor @@ -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