From ce0aed77ea20176551a6827efb31b13771bc9b19 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 3 Oct 2015 16:45:10 -0400 Subject: [PATCH] use readtable for detecting dot --- racket/src/racket/src/read.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c index 7840bcd046..9141f63ed2 100644 --- a/racket/src/racket/src/read.c +++ b/racket/src/racket/src/read.c @@ -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) || (!table && scheme_isspace(next)) ) { 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; }