From a25254c7f4aa6cdda892e08c8e03e266a2440a48 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 2 Jul 2008 11:42:49 -0500
Subject: [PATCH] newfx: invert-index

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

diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor
index 0e24ff2507..e62747a2eb 100644
--- a/extra/newfx/newfx.factor
+++ b/extra/newfx/newfx.factor
@@ -219,3 +219,6 @@ METHOD: as-mutate { object object assoc }       set-at ;
 : snipped!      ( seq a b --     )       rot delete-slice ;
 : snipped-from! ( a b seq --     )           delete-slice ;
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: invert-index ( seq i -- seq i ) >r dup length 1 - r> - ;
\ No newline at end of file