~ chicken-core (chicken-5) 8613c505152d4dac210a473f2494c7446951d93a

commit 8613c505152d4dac210a473f2494c7446951d93a
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Jun 29 15:27:23 2019 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Jun 29 15:27:23 2019 +0200

    Allow #f as keyword-style, unbreaks the tests
    
    Was a regression caused by f7f3923319f8e893610409725316bf7e49a491be

diff --git a/library.scm b/library.scm
index 5f03ba02..994efc4d 100644
--- a/library.scm
+++ b/library.scm
@@ -3681,7 +3681,7 @@ EOF
 (set! chicken.base#symbol-escape (make-parameter #t))
 
 (set! chicken.base#keyword-style
-  (make-parameter #:suffix (lambda (x) (##sys#check-keyword x 'keyword-style) x)))
+  (make-parameter #:suffix (lambda (x) (when x (##sys#check-keyword x 'keyword-style)) x)))
 
 (define ##sys#current-read-table (make-parameter (##sys#make-structure 'read-table #f #f #f)))