From 5f1f34e70c68dce05f6b0ab730b6d407dcbeeea1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Aug 2015 18:16:02 -0400
Subject: [PATCH] Removed duplicate definition of 'or'

---
 test2.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/test2.scm b/test2.scm
index d0d7ee14..a5a36bf0 100644
--- a/test2.scm
+++ b/test2.scm
@@ -28,16 +28,16 @@
                          (cons (rename 'and) (cddr expr))
                          #f))))))
 
-(define-syntax 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)))))))))
+;(define-syntax 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)))))))))
 
 (write (test 1 2 3))
 (write (my-or 1 2 3 'or))