optimizer.inlining: use sigma

db4
Eduardo Cavazos 2008-07-03 13:43:22 -05:00
parent ecfe54e109
commit b9689a0624
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;