From 7dd1052b84cb3e5399e36d38bb08cd9e1ad767ab Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 17 Mar 2010 02:42:43 -0700
Subject: [PATCH] Reduce flag options to 'PREFIX, 'SUFFIX, or #F

---
 src/runtime/keyword.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index 2ced2298b..6bdab2d23 100644
--- a/src/runtime/keyword.scm
+++ b/src/runtime/keyword.scm
@@ -36,7 +36,7 @@ USA.
 
 ;;; *KEYWORD-STYLE*
 ;;
-;;  Should be one of DSSSL CL BOTH SRFI-88 or #f.
+;;  Should be one of PREFIX, SUFFIX, or #F.
 (define *keyword-style* #f)
 
 (define-structure (keyword
@@ -44,6 +44,9 @@ USA.
 		   (conc-name keyword/)
 		   (print-procedure (lambda (state object)
 				      (keyword-unparser state object))))
+  ;; logically, the name is a string, but
+  ;; we store it as a symbol so that the standard
+  ;; symbol-quoting conventions work.
   (name #f read-only #t))
 
 (define-guarantee keyword "Keyword object")
@@ -51,10 +54,10 @@ USA.
 (define (keyword-unparser state object)
   (let ((port (unparser-state/port state)))
     (case *keyword-style*
-      ((BOTH CL)
+      ((PREFIX)
        (write-char #\: port)
        (write (keyword/name object) port))
-      ((DSSSL SRFI-88)
+      ((SUFFIX)
        (write (keyword/name object) port)
        (write-char #\: port))
       (else
-- 
2.25.1