Moving around test files

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
+