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 a75defd55054f5ccbc3006f3245af01bc0e22905..ffa39e4114c93c9cfc4769a5ca406b9c1f34a8bb 100644 (file)
--- 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