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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Eduardo Cavazos 2008-09-13 11:13:03 -05:00
parent 1bf65e6dc5 01005078f5
commit 96afddc72b
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,7 +84,7 @@ M:: #recursive remove-dead-code* ( node -- nodes )
drop-outputs [ node drop-recursive-outputs ] | drop-outputs [ node drop-recursive-outputs ] |
node [ (remove-dead-code) ] change-child drop node [ (remove-dead-code) ] change-child drop
node label>> [ filter-live ] change-enter-out drop node label>> [ filter-live ] change-enter-out drop
drop-inputs node drop-outputs 3array { drop-inputs node drop-outputs }
] ; ] ;
M: #return-recursive remove-dead-code* ; M: #return-recursive remove-dead-code* ;

4
extra/benchmark/spectral-norm/spectral-norm.factor
View File

@ -32,8 +32,10 @@ IN: benchmark.spectral-norm
: eval-AtA-times-u ( u n -- seq ) : eval-AtA-times-u ( u n -- seq )
[ eval-A-times-u ] [ eval-At-times-u ] bi ; inline [ eval-A-times-u ] [ eval-At-times-u ] bi ; inline
: ones ( n -- seq ) [ 1.0 ] F{ } replicate-as ; inline
:: u/v ( n -- u v ) :: u/v ( n -- u v )
n 1.0 <repetition> >float-array dup n ones dup
10 [ 10 [
drop drop
n eval-AtA-times-u n eval-AtA-times-u