Ensurce new parameters have false defaults everywhere

This commit is contained in:
Jay McCarthy 2015-10-04 13:03:22 -04:00
parent bbf03997bb
commit ec713a22c3
5 changed files with 18 additions and 1 deletions

View File

@ -244,11 +244,14 @@
(parameterize ([read-case-sensitive #f]
[read-square-bracket-as-paren #t]
[read-curly-brace-as-paren #t]
[read-square-bracket-with-tag #f]
[read-curly-brace-with-tag #f]
[read-accept-box #t]
[read-accept-compiled #f]
[read-accept-bar-quote #t]
[read-accept-graph #t]
[read-decimal-as-inexact #t]
[read-cdot #f]
[read-accept-dot #t]
[read-accept-infix-dot #t]
[read-accept-quasiquote #t]

View File

@ -4844,6 +4844,9 @@ static Scheme_Object *default_load(int argc, Scheme_Object *argv[])
config = scheme_extend_config(config, MZCONFIG_CAN_READ_LANG, scheme_true);
config = scheme_extend_config(config, MZCONFIG_READ_DECIMAL_INEXACT, scheme_true);
config = scheme_extend_config(config, MZCONFIG_READTABLE, scheme_false);
config = scheme_extend_config(config, MZCONFIG_READ_CDOT, scheme_false);
config = scheme_extend_config(config, MZCONFIG_SQUARE_BRACKETS_ARE_TAGGED, scheme_false);
config = scheme_extend_config(config, MZCONFIG_CURLY_BRACES_ARE_TAGGED, scheme_false);
} else {
config = scheme_extend_config(config, MZCONFIG_CAN_READ_COMPILED, scheme_true);
config = scheme_extend_config(config, MZCONFIG_CAN_READ_READER, scheme_true);

View File

@ -331,11 +331,14 @@
"(parameterize((read-case-sensitive #t)"
"(read-square-bracket-as-paren #t)"
"(read-curly-brace-as-paren #t)"
"(read-square-bracket-with-tag #f)"
"(read-curly-brace-with-tag #f)"
"(read-accept-box #t)"
"(read-accept-compiled #f)"
"(read-accept-bar-quote #t)"
"(read-accept-graph #t)"
"(read-decimal-as-inexact #t)"
"(read-cdot #f)"
"(read-accept-dot #t)"
"(read-accept-infix-dot #t)"
"(read-accept-quasiquote #t)"
@ -527,7 +530,8 @@
"(not(car a)))))"
"(define-values(get-linked-collections)"
"(lambda(links-path)"
"(call-with-escape-continuation (lambda(esc)"
"(call-with-escape-continuation"
"(lambda(esc)"
"(define-values(make-handler)"
"(lambda(ts)"
"(lambda(exn)"

View File

@ -391,11 +391,14 @@
(parameterize ([read-case-sensitive #t]
[read-square-bracket-as-paren #t]
[read-curly-brace-as-paren #t]
[read-square-bracket-with-tag #f]
[read-curly-brace-with-tag #f]
[read-accept-box #t]
[read-accept-compiled #f]
[read-accept-bar-quote #t]
[read-accept-graph #t]
[read-decimal-as-inexact #t]
[read-cdot #f]
[read-accept-dot #t]
[read-accept-infix-dot #t]
[read-accept-quasiquote #t]

View File

@ -7977,6 +7977,10 @@ static void make_initial_config(Scheme_Thread *p)
init_param(cells, paramz, MZCONFIG_CURLY_BRACES_ARE_PARENS, (scheme_curly_braces_are_parens
? scheme_true : scheme_false));
init_param(cells, paramz, MZCONFIG_SQUARE_BRACKETS_ARE_TAGGED, scheme_false);
init_param(cells, paramz, MZCONFIG_CURLY_BRACES_ARE_TAGGED, scheme_false);
init_param(cells, paramz, MZCONFIG_READ_CDOT, scheme_false);
init_param(cells, paramz, MZCONFIG_ERROR_PRINT_WIDTH, scheme_make_integer(256));
init_param(cells, paramz, MZCONFIG_ERROR_PRINT_CONTEXT_LENGTH, scheme_make_integer(16));
init_param(cells, paramz, MZCONFIG_ERROR_PRINT_SRCLOC, scheme_true);