From: Joe Marshall Date: Fri, 26 Mar 2010 16:19:29 +0000 (-0700) Subject: Add *parser-keyword-style*. X-Git-Tag: 20100708-Gtk~71^2~28 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6b5daedfee78d569074e0b507c36967ebc2bdc1a;p=mit-scheme.git Add *parser-keyword-style*. --- 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)