math.extras: Call (gini).

2012-09-26 15:34:08 -07:00 · 2012-09-26 15:34:08 -07:00 · 48184779ea
parent 9d813ef1a9
commit 48184779ea
1 changed files with 1 additions and 1 deletions
--- 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 )