From 04b32d6a5e4d8112f25761dcfe7cc2e5d5efee2e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 11 Dec 2017 13:44:47 -0500 Subject: [PATCH] Tweaked syntax --- tests/let-syntax.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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