From 36646331b8ddc0bee9fe939743c47375947aee61 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Aug 2015 21:37:39 -0400
Subject: [PATCH] Removed relocated macros

---
 scheme/cyclone/transforms.sld | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 470f8116..9d87dd5d 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -139,22 +139,6 @@
 (define (get-macros) *defined-macros*)
 (define *defined-macros* 
   (list 
-;    (cons 'and 
-;     (lambda (expr rename compare)
-;       (cond ((null? (cdr expr))) ;; TODO (?): #t)
-;             ((null? (cddr expr)) (cadr expr))
-;             (else (list (rename 'if) (cadr expr)
-;                         (cons (rename 'and) (cddr expr))
-;                         #f)))))
-;    (cons 'or
-;     (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))))))))
 ;    (cons 'let (lambda (exp rename compare) (let=>lambda exp)))
     (cons 'let
      (lambda (expr rename compare)