From 22362292f5d84f18da09542721118b2bd1002b4c Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 26 Mar 2010 15:59:52 -0700 Subject: [PATCH] Initialize new control variables. --- src/runtime/parse.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.25.1