classes.tuple: use sigma

2008-07-03 13:45:32 -05:00 · 2008-07-03 13:45:32 -05:00 · c38298f0b5
parent b9689a0624
commit c38298f0b5
1 changed files with 1 additions and 1 deletions
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@ -103,7 +103,7 @@ ERROR: bad-superclass class ;

 : superclass-size ( class -- n )
    superclasses but-last-slice
-    [ slot-names length ] map sum ;
+    [ slot-names length ] sigma ;

 : generate-tuple-slots ( class slots -- slot-specs )
    over superclass-size 2 + simple-slots ;