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

correct dot cancelling under readtable

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-03 19:27:59 -04:00
parent 551e4d5a0d
commit bbf03997bb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3702,7 +3702,8 @@ read_number_or_symbol(int init_ch, int skip_rt, Scheme_Object *port,
&& (((ch < 128) && (delim[ch] & delim_ok)) && (((ch < 128) && (delim[ch] & delim_ok))
|| ((ch >= 128) && far_char_ok)) || ((ch >= 128) && far_char_ok))
&& !(!is_float && !is_not_float && !radix_set && read_cdot && ch == '.')) && !(!is_float && !is_not_float && !radix_set && read_cdot && ch == '.'))
|| table)) { || (table
&& !(!is_float && !is_not_float && !radix_set && read_cdot && readtable_effective_char(table, ch) == '.')))) {
if (table) { if (table) {
int v; int v;
v = readtable_kind(table, ch, params); v = readtable_kind(table, ch, params);