From 9f1de7dd1db74bac697e8a56a4b4b325e168a1c3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 3 Feb 2016 03:20:52 -0500
Subject: [PATCH] WIP

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

diff --git a/kons.scm b/kons.scm
index 075ef4ff..55e95bbe 100644
--- a/kons.scm
+++ b/kons.scm
@@ -1,7 +1,8 @@
 ;; A temporary test file
 (import (scheme base)
         (scheme write)
-        (srfi 9))
+        (srfi 9)
+        )
 
 ;((lambda ()
 ;
@@ -23,7 +24,7 @@
 ;))
 ;))
 
-;(define <pare> (register-simple-type <pare> #f (quote (x y)))) 
+(define <pare> (register-simple-type <pare> #f (quote (x y)))) 
 ;(define pare? vector?) ;(make-type-predicate pare? <pare>)) 
 ;(define kons 
 ;  ((lambda (%make) 
@@ -34,11 +35,11 @@
 ;          res) 
 ;        (%make)))) 
 ;   (make-constructor "kons" <pare>))) 
-(write 
+;(write 
 ;  (list 
 ;    (pare? (kons 1 2)) 
-    (pair? (cons 1 2))
-);)
+;    (pare? (cons 1 4))
+;))
 
 ;(define (make-lambda)
 ;  (lambda (a b c) (write (+ a b c))))