words: adding inline-recursive?.

diff --git a/basis/compiler/tree/builder/builder.factor b/basis/compiler/tree/builder/builder.factor
index a13c5a695e385abae9fa8436662fc810f8e0ae1d..7f7dfdc4b54482a31df32df00fb29211f16da7c4 100644 (file)
--- a/basis/compiler/tree/builder/builder.factor
+++ b/basis/compiler/tree/builder/builder.factor
@@ -20,9 +20,6 @@ M: callable (build-tree) infer-quot-here ;
 : check-no-compile ( word -- )
     dup "no-compile" word-prop [ do-not-compile ] [ drop ] if ;
 
-: inline-recursive? ( word -- ? )
-    [ "inline" word-prop ] [ "recursive" word-prop ] bi and ;
-
 : word-body ( word -- quot )
     dup inline-recursive? [ 1quotation ] [ specialized-def ] if ;
 

diff --git a/core/words/words.factor b/core/words/words.factor
index 47a7531b342976ac124bfa570ae6b804d427021c..d338d7f5762ea5f4670b1fce3168e557b45430b2 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -108,6 +108,10 @@ M: word parent-word drop f ;
 
 : inline? ( word -- ? ) "inline" word-prop ; inline
 
+: inline-recursive? ( word -- ? )
+    dup "inline" word-prop
+    [ "recursive" word-prop ] [ drop f ] if ; inline
+
 ERROR: cannot-be-inline word ;
 
 GENERIC: make-inline ( word -- )