From feec2c4d39d1c52a5a32cc5dd930b7497a4d75a2 Mon Sep 17 00:00:00 2001
From: Jakub Jankiewicz <jcubic@onet.pl>
Date: Fri, 20 Aug 2021 23:13:22 +0200
Subject: [PATCH] add disabled test for #172

---
 tests/syntax.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/syntax.scm b/tests/syntax.scm
index 566facaee..ecb9a5a48 100644
--- a/tests/syntax.scm
+++ b/tests/syntax.scm
@@ -1061,3 +1061,16 @@
         (t.is (letrec-syntax ((foo (syntax-rules (foo) ((_ foo) #t) ((_ x) #f))))
                 (foo foo))
               #t)))
+
+(test.skip "syntax: let-syntax and set! of definition"
+      (lambda (t)
+        ;; https://github.com/jcubic/lips/issues/172
+        (define-syntax g
+          (syntax-rules ()
+            ((g 2) -3)))
+
+        (t.is (let-syntax ((f (syntax-rules ()
+                          ((f 1) (g 2)))))
+                (set! g (lambda (x) -1000))
+                (f 1))
+              -3)))