forgot a sigma

2009-10-29 14:34:31 -05:00 · 2009-10-29 14:34:31 -05:00 · 0f104af192
parent 1d12a6707d
commit 0f104af192
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/paragraphs/paragraphs.factor
+++ b/basis/ui/gadgets/paragraphs/paragraphs.factor
@ -46,7 +46,7 @@ TUPLE: line words height ;
    [ words>> line-width ] [ max ] map-reduce ;

 : sum-line-heights ( wrapped-paragraph -- y )
-    [ height>> ] sigma ;
+    [ height>> ] map-sum ;

 M: paragraph pref-dim*
    wrap-paragraph [ max-line-width ] [ sum-line-heights ] bi 2array ;