From 6b5daedfee78d569074e0b507c36967ebc2bdc1a Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 26 Mar 2010 09:19:29 -0700 Subject: [PATCH] Add *parser-keyword-style*. --- src/runtime/parse.scm | 4 +++- src/runtime/runtime.pkg | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm index f4e5136e0..6d9aecb2b 100644 --- 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 2ac53a14a..73e4c4b41 100644 --- 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) -- 2.25.1