add disabled test for #172

jcubic · Aug 20, 2021 · feec2c4 · feec2c4
1 parent 6636441
commit feec2c4
Showing 1 changed file with 13 additions and 0 deletions.
diff --git 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)))