From 1903a87cb95ba7350d69be184047801e18cf49c9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 8 Dec 2017 19:50:44 -0500 Subject: [PATCH] Testing with syntax-rules macro --- tests/let-syntax.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm index 5b5f01a1..280d7a15 100644 --- a/tests/let-syntax.scm +++ b/tests/let-syntax.scm @@ -1,5 +1,22 @@ (import (scheme base) (scheme write)) +(define-syntax my-let + (syntax-rules + () + ((my-let ((name val) ...) body1 body2 ...) + ((lambda (name ...) body1 body2 ...) val ...)) + ((my-let tag ((name val) ...) body1 body2 ...) + ((letrec ((tag (lambda (name ...) body1 body2 ...))) + tag) + val ...)))) +(write +(my-let ((x 'outer)) + (let-syntax ((m (syntax-rules () ((m) x)))) + (my-let ((x 'inner)) + (m)))) ;; Should be outer + ) + + ;; (let-syntax ((given-that (syntax-rules () ;; ((given-that test stmt1 stmt2 ...) ;; (if test