suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initialize new params in read_escape_from_string

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-04 13:32:19 -04:00
parent ec713a22c3
commit fff7bcfb03
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/src/read.c
View File

@ -4730,6 +4730,9 @@ static Scheme_Object *read_escape_from_string(char *s, intptr_t len,
params.case_sensitive = scheme_case_sensitive; params.case_sensitive = scheme_case_sensitive;
params.square_brackets_are_parens = 1; params.square_brackets_are_parens = 1;
params.curly_braces_are_parens = 1; params.curly_braces_are_parens = 1;
params.square_brackets_are_tagged = 0;
params.curly_braces_are_tagged = 0;
params.read_cdot = 0;
params.read_decimal_inexact = 1; params.read_decimal_inexact = 1;
params.can_read_dot = 1; params.can_read_dot = 1;
params.can_read_infix_dot = 1; params.can_read_infix_dot = 1;