From 68c82f88b1f0a0a5dd001a81a9307787d7c2a5d2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 12 Apr 2008 23:59:11 -0500
Subject: [PATCH] Add a couple of inverses to inverse, fix summary

---
 extra/inverse/inverse.factor | 4 ++++
 extra/macros/summary.txt     | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor
index 9c94c86ce9..6852d70e48 100755
--- a/extra/inverse/inverse.factor
+++ b/extra/inverse/inverse.factor
@@ -195,6 +195,10 @@ DEFER: _
 \ first3 [ 3array ] define-inverse
 \ first4 [ 4array ] define-inverse
 
+\ prefix [ unclip ] define-inverse
+\ unclip [ prefix ] define-inverse
+\ suffix [ dup 1 head* swap peek ] define-inverse
+
 ! Constructor inverse
 : deconstruct-pred ( class -- quot )
     "predicate" word-prop [ dupd call assure ] curry ;
diff --git a/extra/macros/summary.txt b/extra/macros/summary.txt
index 93ecb60f1c..cfd00d9795 100644
--- a/extra/macros/summary.txt
+++ b/extra/macros/summary.txt
@@ -1 +1 @@
-Utility for defining compiler transforms, and short-circuiting boolean operators
+Utility for defining compiler transforms