From 50eb784bfcf15ee3c6b0b53d747db92673395040 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:34 -0800
Subject: Import Upstream version 5e3

---
 bench.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bench.scm')

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)))
-- 
cgit v1.2.3