Permit whitespace between display hint and display body

This commit is contained in:
Tony Garnock-Jones 2010-12-29 18:23:01 -05:00
parent 84219ff9dc
commit 20ef8dfd46
1 changed files with 6 additions and 0 deletions

View File

@ -82,6 +82,12 @@ sexp_t *sexp_read(IOHandle *h) {
goto error;
}
iohandle_drain(h, 1);
skip_whitespace_in_display_hint:
READ1;
if (isspace(buf.bytes[0])) {
iohandle_drain(h, 1);
goto skip_whitespace_in_display_hint;
}
body = INCREF(read_simple_string(h, EMPTY_BYTES));
CHECKH;
accumulator = sexp_display_hint(hint, body);