From 9ebd079c8bfd0ac6c91b5333ca65e3cc35b1d7f5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 11 Dec 2017 19:07:05 -0500 Subject: [PATCH] Added a debug version of the letrec-syntax macro --- tests/let-syntax.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm index e2508f4f..856f431f 100644 --- a/tests/let-syntax.scm +++ b/tests/let-syntax.scm @@ -1,5 +1,18 @@ (import (scheme base) (scheme write) (scheme cyclone pretty-print)) +(let-syntax + ((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) + (my-let odd?) + (my-if even?)) + (my-or x (my-let temp) (my-if y) y))) ;; ==> 7 + #;(letrec-syntax ((my-or (syntax-rules () ((my-or) #f)