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

Error rather than return weird #%dot

Browse Source
This commit is contained in:
Jay McCarthy 2016-08-29 11:12:15 -04:00
parent c1242fa52a
commit 34ad1cec3f
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

@ -2057,7 +2057,9 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
}
next = read_inner_inner(port, stxsrc, ht, indentation, params, comment_mode, pre_char, table, get_info);
if (SCHEME_EOFP(next)) {
ret = scheme_make_pair( dot, scheme_make_pair( ret, scheme_null ) );
scheme_read_err(port, stxsrc, dline, dcol, dpos, 1, EOF, indentation,
"read: expected a datum after cdot, found end-of-file");
return NULL;
} else {
ret = scheme_make_pair( dot, scheme_make_pair( ret, scheme_make_pair( next, scheme_null ) ) );
}