From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Fri, 26 Mar 2010 22:54:24 +0000 (-0700)
Subject: Add new parser control variables.
X-Git-Tag: 20100708-Gtk~71^2~22
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4cca0eb3d16560704e7e62258a9b60413a38ddb;p=mit-scheme.git

Add new parser control variables.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 4b74c8a49..f9d20aee4 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -31,14 +31,20 @@ USA.
 	 (integrate-external "port"))
 
 (define *parser-associate-positions?* #f)
+(define *parser-atom-delimiters*)
 (define *parser-canonicalize-symbols?* #t)
+(define *parser-constituents*)
 (define *parser-keyword-style* #f)
 (define *parser-radix* 10)
+(define *parser-table*)
 
 (define runtime-parser-associate-positions? #f)
+(define runtime-parser-atom-delimiters)
 (define runtime-parser-canonicalize-symbols? #t)
+(define runtime-parser-constituents)
 (define runtime-parser-keyword-style #f)
 (define runtime-parser-radix 10)
+(define runtime-parser-table)
 
 (define ignore-extra-list-closes #t)
 
@@ -109,8 +115,6 @@ USA.
 (define char-set/atom-delimiters)
 (define char-set/symbol-quotes)
 (define char-set/number-leaders)
-(define *parser-table*)
-(define runtime-parser-table)
 
 (define (initialize-package!)
   (let* ((constituents