Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-10 22:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

New test file

Browse source
This commit is contained in:
Justin Ethier 2015-08-14 01:48:14 -04:00
parent 50555340b1
commit 7dd0eb8591
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test-lib/test.sld Normal file
View file

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