Add *parser-keyword-style*.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index f4e5136e07d2b5a34f80cb2dfe979f8e3e9f341e..6d9aecb2b9693b64a676550cf27bafefac16af00 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -33,10 +33,12 @@ USA.
 (define *parser-radix* 10)
 (define *parser-canonicalize-symbols?* #t)
 (define *parser-associate-positions?* #f)
+(define *parser-keyword-style* #f)
 (define ignore-extra-list-closes #t)
 (define runtime-parser-radix 10)
 (define runtime-parser-canonicalize-symbols? #t)
 (define runtime-parser-associate-positions? #f)
+(define runtime-parser-keyword-style #f)
 
 (define (parse-object port environment)
   ((top-level-parser port) port environment))
@@ -758,7 +760,7 @@ USA.
             (environment-lookup environment '*PARSER-CANONICALIZE-SYMBOLS?*)
             (environment-lookup environment '*PARSER-ASSOCIATE-POSITIONS?*)
             (environment-lookup environment '*PARSER-TABLE*)
-            (environment-lookup environment '*KEYWORD-STYLE*)
+            (environment-lookup environment '*PARSER-KEYWORD-STYLE*)
             (make-shared-objects)
             (position-operation port environment)
             (port/operation port 'DISCRETIONARY-WRITE-CHAR)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2ac53a14a6a273cc98e7c7a3d94054c0320e3337..73e4c4b4155a9701e10f8303928c951855e291b2 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2774,6 +2774,7 @@ USA.
   (export ()
          *parser-associate-positions?*
          *parser-canonicalize-symbols?*
+         *parser-keyword-style*
          *parser-radix*
          *parser-table*
          define-bracketed-object-parser-method
@@ -2783,6 +2784,7 @@ USA.
   (export (runtime)
          (*parser-associate-positions?* runtime-parser-associate-positions?)
          (*parser-canonicalize-symbols?* runtime-parser-canonicalize-symbols?)
+         (*parser-keyword-style* runtime-parser-keyword-style)
          (*parser-radix* runtime-parser-radix)
          (*parser-table* runtime-parser-table))
   (export (runtime character)