Import Upstream version 5e3upstream/5e3

1 files changed, 1 insertions, 1 deletions

diff --git a/bench.scm b/bench.scm
index 0bcac0a..36255f0 100644
--- a/bench.scm
+++ b/bench.scm
@@ -98,7 +98,7 @@
 	      ))))))
 
 (define (prng samples modu sta)
-  (define sra (create-array (A:fixN32b) samples))
+  (define sra (make-array (A:fixN32b) samples))
   (do ((cnt (+ -1 samples) (+ -1  cnt))
        (num (random modu sta) (random modu sta))
        (sum 0 (+ sum num)))