Fix minor inconsistency in reference to var name
parent
d035c91e3f
commit
68d7137a16
|
@ -18,7 +18,7 @@ IN: benchmark.pidigits
|
||||||
: >matrix ( q s r t -- z )
|
: >matrix ( q s r t -- z )
|
||||||
4array 2 group ;
|
4array 2 group ;
|
||||||
|
|
||||||
: produce ( z n -- z' )
|
: produce ( z y -- z' )
|
||||||
[ 10 ] dip -10 * 0 1 >matrix swap m. ;
|
[ 10 ] dip -10 * 0 1 >matrix swap m. ;
|
||||||
|
|
||||||
: gen-x ( x -- matrix )
|
: gen-x ( x -- matrix )
|
||||||
|
|
Loading…
Reference in New Issue