Use *parser-keyword-style*.

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index 6bdab2d23bc6cdb954288ba8fcb55adf01f7bd03..ccd429ba7582e5f6573a6d4bc0142fe238ccea91 100644 (file)
--- a/src/runtime/keyword.scm
+++ b/src/runtime/keyword.scm
@@ -53,7 +53,7 @@ USA.
 
 (define (keyword-unparser state object)
   (let ((port (unparser-state/port state)))
-    (case *keyword-style*
+    (case *parser-keyword-style*
       ((PREFIX)
        (write-char #\: port)
        (write (keyword/name object) port))