From 19ee3de542688ad8128fcd5ed59871a0763acd77 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 12 Dec 2017 10:34:52 -0500 Subject: [PATCH] More tests --- tests/let-syntax.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm index 856f431f..91d0c13b 100644 --- a/tests/let-syntax.scm +++ b/tests/let-syntax.scm @@ -26,6 +26,27 @@ (if even?)) (my-or x (let temp) (if y) y))) ;; ==> 7 + +;; From Chibi +#;(let () + (letrec-syntax () + (define internal-def 'ok)) + internal-def) + + +#;(let ((a 1)) + (let-syntax + ;;(letrec-syntax + ((foo (syntax-rules () + ((_ b) + (bar a b)))) + (bar (syntax-rules () ((_ c d) + (cons c (let ((c 3)) + (list d c 'c))))))) + (let ((a 2)) + (foo a)))) + + (define-syntax my-let (syntax-rules ()