inverse: remove ?word-prop which is the same as word-prop?.

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 8ba0289060d4be042b16dd7c9018d28fcb74bf0d..887fd58c7e6e1a4210d05ac2e12d4ec87388dca5 100644 (file)
--- a/basis/inverse/inverse.factor
+++ b/basis/inverse/inverse.factor
@@ -52,9 +52,6 @@ ERROR: bad-math-inverse ;
 : pull-inverse ( math-inverse revquot const -- revquot* quot )
     assure-constant rot first compose ;
 
-: ?word-prop ( word/object name -- value/f )
-    over word? [ word-prop ] [ 2drop f ] if ;
-
 : undo-literal ( object -- quot ) [ =/fail ] curry ;
 
 PREDICATE: normal-inverse < word "inverse" word-prop >boolean ;