From 4858a2ea74ed710adbf2bd002db6e6d5813a2611 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 13 Nov 2008 09:33:18 -0600
Subject: [PATCH] Simplify inline? now that generic words can't be inline
 anymore

---
 core/generic/generic.factor                      | 3 ---
 core/generic/standard/engines/tuple/tuple.factor | 3 ---
 core/words/words.factor                          | 4 +---
 3 files changed, 1 insertion(+), 9 deletions(-)

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