Fix but: top-level definition names must be symbols.

diff --git a/src/runtime/syntax-compile.scm b/src/runtime/syntax-compile.scm
index 4b3cf490832576b4256f483f6cc2cfdc4c528e20..9492bbb14cbe9e416a3af2a74f007f6dde3b552b 100644 (file)
--- a/src/runtime/syntax-compile.scm
+++ b/src/runtime/syntax-compile.scm
@@ -30,7 +30,7 @@ USA.
 \f
 (define (compile-item/top-level item)
   (if (binding-item? item)
-      (let ((name (binding-item/name item))
+      (let ((name (identifier->symbol (binding-item/name item)))
            (value (binding-item/value item)))
        (if (keyword-value-item? value)
            (output/top-level-syntax-definition