From b9689a062443a454e8a734c973cef253bb05a1a0 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 3 Jul 2008 13:43:22 -0500
Subject: [PATCH] optimizer.inlining: use sigma
---
core/optimizer/inlining/inlining.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core/optimizer/inlining/inlining.factor b/core/optimizer/inlining/inlining.factor
index 9e8f805acf..bbeb5e044f 100755
--- a/core/optimizer/inlining/inlining.factor
+++ b/core/optimizer/inlining/inlining.factor
@@ -48,7 +48,7 @@ DEFER: (flat-length)
{ [ dup word? ] [ word-flat-length ] }
[ drop 1 ]
} cond
- ] map sum ;
+ ] sigma ;
: flat-length ( seq -- n )
[ word-def (flat-length) ] with-scope ;