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

use readtable if available to look up whitespace

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-03 16:42:47 -04:00
parent 35aa2c2398
commit 4451f44dda
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

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