From 092f5bd0066f7571ab8dae3bf60f002e7813b236 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 26 Mar 2010 09:39:15 -0700 Subject: [PATCH] Bugfix and use *parser-keyword-style*. --- src/runtime/unpars.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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))) -- 2.25.1