From c5b5bbc4fba7c9f5f12802bd4a2ce0d480826e94 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 26 Nov 2018 01:55:03 +0000
Subject: [PATCH] Add another screw case.

From my attempt to work around the other one using
er-macro-transformer...
---
 tests/runtime/test-syntax.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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
-- 
2.25.1