steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/optimizer/inlining/inlining.factor
View File

@ -48,7 +48,7 @@ DEFER: (flat-length)
{ [ dup word? ] [ word-flat-length ] } { [ dup word? ] [ word-flat-length ] }
[ drop 1 ] [ drop 1 ]
} cond } cond
] map sum ; ] sigma ;
: flat-length ( seq -- n ) : flat-length ( seq -- n )
[ word-def (flat-length) ] with-scope ; [ word-def (flat-length) ] with-scope ;