From 7dd0eb85910c72b77f187c65f89e18a905cc691d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Aug 2015 01:48:14 -0400
Subject: [PATCH] New test file

---
 test-lib/test.sld | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 test-lib/test.sld

diff --git a/test-lib/test.sld b/test-lib/test.sld
new file mode 100644
index 00000000..e1cf8217
--- /dev/null
+++ b/test-lib/test.sld
@@ -0,0 +1,16 @@
+(define-library (test-lib test)
+  (import (scheme base))
+  (export
+    my-or)
+  (begin
+(define-syntax my-or
+  (er-macro-transformer
+     (lambda (expr rename compare)
+       (cond ((null? (cdr expr)) #f)
+             ((null? (cddr expr)) (cadr expr))
+             (else
+              (list (rename 'let) (list (list (rename 'tmp) (cadr expr)))
+                    (list (rename 'if) (rename 'tmp)
+                          (rename 'tmp)
+                          (cons (rename 'or) (cddr expr)))))))))
+  ))