From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 26 Nov 2018 01:55:03 +0000 (+0000)
Subject: Add another screw case.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~175
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c5b5bbc4fba7c9f5f12802bd4a2ce0d480826e94;p=mit-scheme.git

Add another screw case.

From my attempt to work around the other one using
er-macro-transformer...
---

diff --git a/tests/runtime/test-syntax.scm b/tests/runtime/test-syntax.scm
index a75defd55..ffa39e411 100644
--- a/tests/runtime/test-syntax.scm
+++ b/tests/runtime/test-syntax.scm
@@ -91,4 +91,19 @@ USA.
                  (let ((.index.1-0 (vector-length input)))
                    (subvector-move-left! input index .index.1-0
                                          array (+ index skew))
-                   array))))))))))
\ No newline at end of file
+                   array))))))))))
+
+(define-test 'quoted-macro-name
+  (lambda ()
+    (assert-error
+     (lambda ()
+       (assert-equal
+        (unsyntax
+         (syntax '(let ()
+                    (define-syntax foo
+                      (er-macro-transformer
+                       (lambda (f r c)
+                         `(,(r 'quote) foo))))
+                    (foo))
+                 test-environment))
+        '(let () 'foo))))))
\ No newline at end of file