From 5a50046791aa36a76a3a835d26e17d6e55eb76b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 6 Nov 2008 13:20:27 -0600
Subject: [PATCH] Change to definition of >boolean broke unit test, so define
 an inverse for >boolean and not explicitly

---
 extra/inverse/inverse.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor
index 7f55b609e3..dfef23b56a 100755
--- a/extra/inverse/inverse.factor
+++ b/extra/inverse/inverse.factor
@@ -131,6 +131,9 @@ MACRO: undo ( quot -- ) [undo] ;
 \ pick [ >r pick r> =/fail ] define-inverse
 \ tuck [ swapd [ =/fail ] keep ] define-inverse
 
+\ not [ not ] define-inverse
+\ >boolean [ { t f } memq? assure ] define-inverse
+
 \ >r [ r> ] define-inverse
 \ r> [ >r ] define-inverse