From fb99c0ac84a89097d719b9a3882988f606da2c8f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 23 Apr 2016 14:13:56 -0700
Subject: [PATCH] inverse: remove ?word-prop which is the same as word-prop?.

---
 basis/inverse/inverse.factor | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 8ba0289060..887fd58c7e 100644
--- 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 ;