optimizer.inlining: use sigma
parent
ecfe54e109
commit
b9689a0624
core/optimizer/inlining
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue