From 7dd0eb85910c72b77f187c65f89e18a905cc691d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 14 Aug 2015 01:48:14 -0400 Subject: [PATCH] New test file --- test-lib/test.sld | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 test-lib/test.sld 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))))))))) + ))