From 483d1951f6afb0516be6a2ab35ad052f331a390d Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Wed, 26 Oct 2005 01:58:59 +0000
Subject: [PATCH] Added inv

---
 contrib/math/utils.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/contrib/math/utils.factor b/contrib/math/utils.factor
index a27fc402d3..27d791a704 100644
--- a/contrib/math/utils.factor
+++ b/contrib/math/utils.factor
@@ -31,3 +31,7 @@ USING: errors kernel sequences math ;
 : c. ( v v -- x )
     #! Complex inner product.
     0 [ ** + ] 2reduce ;
+
+: inv
+    #! inverse
+    1 swap / ; inline