artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Fix quasisyntax reading.

Browse source 
* mes.c (readword): Avoid unspecified behaviour in comma list.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-30 23:30:22 +01:00
parent d2768796dc
commit f1ae9edd0d
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mes.c
View file

@ -972,12 +972,10 @@ readword (int c, scm *w, scm *a)
&scm_nil));} &scm_nil));}
return cons (lookup (symbol_unsyntax.string, a), cons (readword (getchar (), w, a), &scm_nil)); return cons (lookup (symbol_unsyntax.string, a), cons (readword (getchar (), w, a), &scm_nil));
} }
if (c == '#' if (c == '#' && (peekchar () == '\'' || peekchar () == '`') && w == &scm_nil) {
&& (peekchar () == '\'' c = getchar ();
|| peekchar () == '`') return cons (lookup (cons (make_char ('#'), cons (make_char (c), &scm_nil)), a),
&& w == &scm_nil) {return cons (lookup (cons (make_char ('#'), cons (make_char (getchar ()), &scm_nil)), a), cons (readword (getchar (), w, a), &scm_nil));}
cons (readword (getchar (), w, a),
&scm_nil));}
if (c == ';') {readcomment (c); return readword ('\n', w, a);} if (c == ';') {readcomment (c); return readword ('\n', w, a);}
if (c == '#' && peekchar () == 'x') {getchar (); return read_hex ();} if (c == '#' && peekchar () == 'x') {getchar (); return read_hex ();}
if (c == '#' && peekchar () == '\\') {getchar (); return read_character ();} if (c == '#' && peekchar () == '\\') {getchar (); return read_character ();}