Allow keyword-style attribute to be none or false. Fix typo.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 793ee172f343b2fecf4005f8d439b7074f3cdf78..4e4ad435bd2f3d006ae559d7da54be9c3898becd 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -858,10 +858,14 @@ USA.
         (lookup-file-attribute file-attribute-alist 'KEYWORD-STYLE)))
     (if (pair? keyword-entry)
        (let ((value (cdr keyword-entry)))
-         (cond ((and (symbol value)
+         (cond ((and (symbol? value)
+                     (or (string-ci=? (symbol-name value) "none")
+                         (string-ci=? (symbol-name value) "false")))
+                (port/set-property! port '*PARSER-KEYWORD-STYLE* #f))
+               ((and (symbol? value)
                      (string-ci=? (symbol-name value) "prefix"))
                 (port/set-property! port '*PARSER-KEYWORD-STYLE* 'PREFIX))
-               ((and (symbol value)
+               ((and (symbol? value)
                      (string-ci=? (symbol-name value) "suffix"))
                 (port/set-property! port '*PARSER-KEYWORD-STYLE* 'SUFFIX))
                (else
@@ -874,7 +878,7 @@ USA.
         (lookup-file-attribute file-attribute-alist 'MODE)))
     (if (pair? mode-entry)
        (let ((value (cdr mode-entry)))
-         (if (or (not (symbol value))
+         (if (or (not (symbol? value))
                  (not (string-ci=? (symbol-name value) "scheme")))
              (warn "Unexpected file mode:" (if (symbol? value)
                                                (symbol-name value)