From 6eb6a4feecfb747ff7aefc35f80ae655bd2df54f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 2 Feb 2016 23:10:05 -0500
Subject: [PATCH] Moving around test files

---
 macro-test.scm => debug/macro-test.scm |  0
 kons.scm                               | 21 +++++++++++++++++++++
 2 files changed, 21 insertions(+)
 rename macro-test.scm => debug/macro-test.scm (100%)
 create mode 100644 kons.scm

diff --git a/macro-test.scm b/debug/macro-test.scm
similarity index 100%
rename from macro-test.scm
rename to debug/macro-test.scm
diff --git a/kons.scm b/kons.scm
new file mode 100644
index 00000000..63cb8c24
--- /dev/null
+++ b/kons.scm
@@ -0,0 +1,21 @@
+;; A temporary test file
+(import (scheme base)
+        (scheme write)
+        (srfi 9))
+
+(define-record-type <pare>
+  (kons x y)
+  pare?
+  (x kar set-kar!)
+  (y kdr))
+
+;(write
+;  (list
+;    (pare? (kons 1 2)) ; =. #t
+;    (pare? (cons 1 2)) ; =. #f
+;    (kar (kons 1 2))   ; =. 1
+;    (kdr (kons 1 2))   ; =. 2
+;    (let ((k (kons 1 2)))
+;      (set-kar! k 3)
+;      (kar k)))) ;=. 3
+