From 2662a15622a279582926f656814279f395a1192d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 2 May 2017 18:55:01 -0400
Subject: [PATCH] Temporary test file

---
 array1-test.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 array1-test.scm

diff --git a/array1-test.scm b/array1-test.scm
new file mode 100644
index 00000000..e36b82f8
--- /dev/null
+++ b/array1-test.scm
@@ -0,0 +1,11 @@
+;;; ARRAY1 -- One of the Kernighan and Van Wyk benchmarks.
+
+(import (scheme base) (scheme read) (scheme write) (scheme time))
+
+(define (create-x n)
+  (define result (make-vector n))
+  (do ((i 0 (+ i 1)))
+      ((>= i n) result) ;; TODO: check generated code, can this >= be inlined???
+    (vector-set! result i i)))
+
+(write (create-x 10))