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

Sort parser control variables.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 6d9aecb2b..4b74c8a49 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -30,15 +30,17 @@ USA.
 	 (integrate-external "input")
 	 (integrate-external "port"))
 
-(define *parser-radix* 10)
-(define *parser-canonicalize-symbols?* #t)
 (define *parser-associate-positions?* #f)
+(define *parser-canonicalize-symbols?* #t)
 (define *parser-keyword-style* #f)
-(define ignore-extra-list-closes #t)
-(define runtime-parser-radix 10)
-(define runtime-parser-canonicalize-symbols? #t)
+(define *parser-radix* 10)
+
 (define runtime-parser-associate-positions? #f)
+(define runtime-parser-canonicalize-symbols? #t)
 (define runtime-parser-keyword-style #f)
+(define runtime-parser-radix 10)
+
+(define ignore-extra-list-closes #t)
 
 (define (parse-object port environment)
   ((top-level-parser port) port environment))
@@ -737,11 +739,11 @@ USA.
     char))
 
 (define-structure db
-  (radix #f read-only #t)
-  (canonicalize-symbols? #f read-only #t)
   (associate-positions? #f read-only #t)
-  (parser-table #f read-only #t)
+  (canonicalize-symbols? #f read-only #t)
   (keyword-style #f read-only #t)
+  (radix #f read-only #t)
+  (parser-table #f read-only #t)
   (shared-objects #f read-only #t)
   (get-position #f read-only #t)
   (discretionary-write-char #f read-only #t)
@@ -756,11 +758,11 @@ USA.
 	     (begin
 	       (guarantee-environment environment #f)
 	       environment))))
-    (make-db (environment-lookup environment '*PARSER-RADIX*)
+    (make-db (environment-lookup environment '*PARSER-ASSOCIATE-POSITIONS?*)
 	     (environment-lookup environment '*PARSER-CANONICALIZE-SYMBOLS?*)
-	     (environment-lookup environment '*PARSER-ASSOCIATE-POSITIONS?*)
-	     (environment-lookup environment '*PARSER-TABLE*)
 	     (environment-lookup environment '*PARSER-KEYWORD-STYLE*)
+	     (environment-lookup environment '*PARSER-RADIX*)
+	     (environment-lookup environment '*PARSER-TABLE*)
 	     (make-shared-objects)
 	     (position-operation port environment)
 	     (port/operation port 'DISCRETIONARY-WRITE-CHAR)