From 344eb59381641eb8bfb9cf1caacba0bccf8160f2 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 6 Dec 2017 13:12:38 -0500 Subject: [PATCH] New test case, still does not work --- tests/let-syntax-298.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 tests/let-syntax-298.scm diff --git a/tests/let-syntax-298.scm b/tests/let-syntax-298.scm new file mode 100644 index 00000000..0758b69a --- /dev/null +++ b/tests/let-syntax-298.scm @@ -0,0 +1,14 @@ +;; From: +;; https://github.com/ashinn/chibi-scheme/issues/298 +(import (scheme base)) + +(define-syntax bar + (syntax-rules () + ((_) + (let-syntax ((foo (syntax-rules () ((_) 'ok)))) + (foo))))) + +(define-syntax foo (syntax-rules ())) + +(bar) +(foo)