diff options
Diffstat (limited to 'bench.scm')
-rw-r--r-- | bench.scm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -98,7 +98,7 @@ )))))) (define (prng samples modu sta) - (define sra (create-array (Au32) samples)) + (define sra (create-array (A:fixN32b) samples)) (do ((cnt (+ -1 samples) (+ -1 cnt)) (num (random modu sta) (random modu sta)) (sum 0 (+ sum num))) |