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

Initialize new control variables.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index f9d20aee4..de4d21e98 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -174,7 +174,11 @@ USA.
     (set! char-set/constituents constituents)
     (set! char-set/atom-delimiters atom-delimiters)
     (set! char-set/symbol-quotes symbol-quotes)
-    (set! char-set/number-leaders number-leaders))
+    (set! char-set/number-leaders number-leaders)
+    (set! *parser-atom-delimiters* atom-delimiters)
+    (set! *parser-constituents* constituents)
+    (set! runtime-parser-atom-delimiters atom-delimiters)
+    (set! runtime-parser-constituents constituents))
   (set! *parser-table* system-global-parser-table)
   (set! runtime-parser-table system-global-parser-table)
   (set! hashed-object-interns (make-strong-eq-hash-table))