summaryrefslogtreecommitdiffstats
path: root/bench.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
commitae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (patch)
treeeee15e02ae016333546d3841712be591b2bcb06f /bench.scm
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
Diffstat (limited to 'bench.scm')
-rw-r--r--bench.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/bench.scm b/bench.scm
index 4262564..0bcac0a 100644
--- a/bench.scm
+++ b/bench.scm
@@ -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)))