From ddfd09b1c2a23dcc182c1f8f2097441f2733b9b7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 4 Feb 2016 22:45:14 -0500
Subject: [PATCH] Added back test code now that it works

---
 kons.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/kons.scm b/kons.scm
index 1fd5527c..94b472d1 100644
--- a/kons.scm
+++ b/kons.scm
@@ -17,11 +17,11 @@
   (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
+    (kar (kons 1 2))   ; =. 1
+    (kdr (kons 1 2))   ; =. 2
+    (let ((k (kons 1 2)))
+      (set-kar! k 3)
+      (kar k)) ;=. 3
 ))
 
 ;(define <pare> (register-simple-type <pare> #f (quote (x y))))