Ensurce new parameters have false defaults everywhere
This commit is contained in:
parent
bbf03997bb
commit
ec713a22c3
|
@ -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]
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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)"
|
||||
|
|
|
@ -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]
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue
Block a user