From 3446d46a6f6ca08b560ffedbe55b6bdede9d6bea Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 17 Nov 2017 16:48:19 +0000
Subject: [PATCH] Adding test file

---
 tests/let-syntax.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/let-syntax.scm

diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm
new file mode 100644
index 00000000..d079c2a0
--- /dev/null
+++ b/tests/let-syntax.scm
@@ -0,0 +1,15 @@
+(import (scheme base))
+
+;; (let-syntax ((given-that (syntax-rules ()
+;; ((given-that test stmt1 stmt2 ...)
+;; (if test
+;; (begin stmt1
+;; stmt2 ...))))))
+;; (let ((if #t))
+;; (given-that if (set! if 'now))
+;; if)) ;; => now
+
+(let ((x 'outer))
+  (let-syntax ((m (syntax-rules () ((m) x))))
+    (let ((x 'inner))
+      (m)))) ;; Should be outer