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))))))))) + ))