Bugfix and use *parser-keyword-style*.

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 4c0e5c100a73dbcef979a459913c6183dcbe0a3d..a7b577796c92bb72a2d0b12e57dcb03ee1b1f756 100644 (file)
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -367,13 +367,10 @@ USA.
        (*unparse-string s))))
 
 (define (looks-like-keyword? string)
-  (case (environment-lookup *environment* '*KEYWORD-STYLE*)
-    ((BOTH)
-     (or (char=? (string-ref string 0) #\:)
-        (char=? (string-ref string (- (string-length string) 1)) #\:)))
-    ((CL)
+  (case (environment-lookup *environment* '*PARSER-KEYWORD-STYLE*)
+    ((PREFIX)
      (char=? (string-ref string 0) #\:))
-    ((DSSSL SRFI-88)
+    ((SUFFIX)
      (char=? (string-ref string (- (string-length string) 1)) #\:))
     (else #f)))