Fix minor inconsistency in reference to var name

2009-04-24 02:16:05 -04:00 · 2009-04-24 02:16:05 -04:00 · 68d7137a16
parent d035c91e3f
commit 68d7137a16
1 changed files with 1 additions and 1 deletions
--- a/extra/benchmark/pidigits/pidigits.factor
+++ b/extra/benchmark/pidigits/pidigits.factor
@ -18,7 +18,7 @@ IN: benchmark.pidigits
 : >matrix ( q s r t -- z )
    4array 2 group ;

-: produce ( z n -- z' )
+: produce ( z y -- z' )
    [ 10 ] dip -10 * 0 1 >matrix swap m. ;

 : gen-x ( x -- matrix )