diff --git a/core/words/words.factor b/core/words/words.factor
index 3226df0b1d..0464349785 100644
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -23,8 +23,7 @@ PRIVATE>
 
 M: word execute (execute) ;
 
-M: word <=>
-    [ [ name>> ] [ vocabulary>> ] bi 2array ] compare ;
+M: word <=> [ [ name>> ] [ vocabulary>> ] bi 2array ] compare ;
 
 M: word definer drop \ : \ ; ;
 
@@ -129,15 +128,12 @@ M: word parent-word drop f ;
 : word-prop? ( obj string -- ? )
     over word? [ word-prop ] [ 2drop f ] if ; inline
 
-: word-props? ( obj seq -- ? )
-    over word? [ [ word-prop ] with all? ] [ 2drop f ] if ; inline
-
 : inline? ( obj -- ? ) "inline" word-prop? ; inline
 
 : recursive? ( obj -- ? ) "recursive" word-prop? ; inline
 
 : inline-recursive? ( obj -- ? )
-    { "inline" "recursive" } word-props? ; inline
+    dup inline? [ recursive? ] [ drop f ] if ; inline
 
 ERROR: cannot-be-inline word ;