diff --git a/test2.scm b/test2.scm index 35427067..d0d7ee14 100644 --- a/test2.scm +++ b/test2.scm @@ -18,26 +18,26 @@ ; ; WTF is the macro unable to be evaluated when the same code works as part of *defined-macros*??? ; -;(define-syntax test -; (er-macro-transformer -; (lambda (expr rename compare) -; (cond ((null? (cdr expr)) #t) -;; (cond ((null? (cdr expr))) -; ((null? (cddr expr)) (cadr expr)) -; (else (list (rename 'if) (cadr expr) -; (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 test + (er-macro-transformer + (lambda (expr rename compare) + (cond ((null? (cdr expr)) #t) +; (cond ((null? (cdr expr))) + ((null? (cddr expr)) (cadr expr)) + (else (list (rename 'if) (cadr expr) + (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))))))))) (write (test 1 2 3)) (write (my-or 1 2 3 'or))