Initialize new control variables.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index f9d20aee443a5dd6412e0829fde5b7946ad875e7..de4d21e9890948c34ce07f6e5765b648297c7478 100644 (file)
--- 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))