From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Fri, 26 Mar 2010 16:28:04 +0000 (-0700)
Subject: Use *parser-keyword-style*.
X-Git-Tag: 20100708-Gtk~71^2~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9bb661e13db2be1974945280942661d2a0350511;p=mit-scheme.git

Use *parser-keyword-style*.
---

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index 6bdab2d23..ccd429ba7 100644
--- 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))