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

add an iota

db4
Doug Coleman 2009-06-10 09:45:48 -05:00
parent bcfc0c5759
commit 55f2185532
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/dead-code/branches/branches.factor
View File

@ -32,7 +32,7 @@ M: #branch remove-dead-code*
pad-with-bottom >>phi-in-d drop ; pad-with-bottom >>phi-in-d drop ;
: live-value-indices ( values -- indices ) : live-value-indices ( values -- indices )
[ length ] keep live-values get [ length iota ] keep live-values get
'[ _ nth _ key? ] filter ; inline '[ _ nth _ key? ] filter ; inline
: drop-indexed-values ( values indices -- node ) : drop-indexed-values ( values indices -- node )