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

Bugfix and use *parser-keyword-style*.
---

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 4c0e5c100..a7b577796 100644
--- 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)))