From cbe806a168ea5e4a0809ad8cc3ae44848c685a86 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Aug 2015 21:37:33 -0400
Subject: [PATCH] Added more test cases

---
 test2.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test2.scm b/test2.scm
index a5a36bf0..34f0fa94 100644
--- a/test2.scm
+++ b/test2.scm
@@ -28,6 +28,14 @@
                          (cons (rename 'and) (cddr expr))
                          #f))))))
 
+(define-syntax test2
+  (er-macro-transformer
+     (lambda (expr rename compare)
+       (test 1 2 3) ; breaks
+       ;(my-or 1 2 3) ; breaks
+       (list 'test #t))))
+           
+
 ;(define-syntax or
 ;  (er-macro-transformer
 ;     (lambda (expr rename compare)
@@ -39,6 +47,7 @@
 ;                          (rename 'tmp)
 ;                          (cons (rename 'or) (cddr expr)))))))))
 
+(write (test2 1 2 3))
 (write (test 1 2 3))
 (write (my-or 1 2 3 'or))
 (write (my-or #f 2 3 'or))