diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm index e85d0df6..e2508f4f 100644 --- a/tests/let-syntax.scm +++ b/tests/let-syntax.scm @@ -1,13 +1,16 @@ (import (scheme base) (scheme write) (scheme cyclone pretty-print)) #;(letrec-syntax - ((my-or (syntax-rules - () + ((my-or (syntax-rules () ((my-or) #f) ((my-or e) e) ((my-or e1 e2 ...) (let ((temp e1)) (if temp temp (my-or e2 ...))))))) - (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) + (let ((x #f) + (y 7) + (temp 8) + (let odd?) + (if even?)) (my-or x (let temp) (if y) y))) ;; ==> 7 (define-syntax my-let