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

use readtable for detecting dot

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-03 16:45:10 -04:00
parent 4451f44dda
commit ce0aed77ea
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2042,7 +2042,9 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
if ( (table && readtable_kind(table, next, params) & READTABLE_WHITESPACE) if ( (table && readtable_kind(table, next, params) & READTABLE_WHITESPACE)
|| (!table && scheme_isspace(next)) ) { || (!table && scheme_isspace(next)) ) {
scheme_getc_special_ok(port); continue; } scheme_getc_special_ok(port); continue; }
if ( next == '.' ) { scheme_getc_special_ok(port); found_dot = 1; break; } if ( (table && readtable_effective_char(table, next) == '.')
|| (!table && next == '.') ) {
scheme_getc_special_ok(port); found_dot = 1; break; }
break; break;
} }