From 48184779ea95e9daeb873941c7783019944aa5e1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 26 Sep 2012 15:34:08 -0700
Subject: [PATCH] math.extras: Call (gini).

---
 extra/math/extras/extras.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 84e0ed06d8..343ef90222 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -176,7 +176,7 @@ PRIVATE>
     dup length 1 <= [
         drop 0
     ] [
-        [ gini ] [ length [ ] [ 1 - ] bi / ] bi *
+        [ (gini) ] [ length [ ] [ 1 - ] bi / ] bi *
     ] if ;
 
 : herfindahl ( seq -- x )