core: reader_eat_whitespace: Prepare for M2-Planet.
* src/reader.c (reader_eat_whitespace): Prepare for M2-Planet.
This commit is contained in:
parent
9cbf29b70a
commit
bd816cf29b
|
@ -162,12 +162,16 @@ reader_eat_whitespace (int c)
|
|||
c = readchar ();
|
||||
if (c == ';')
|
||||
return reader_eat_whitespace (reader_read_line_comment (c));
|
||||
if (c == '#' && (peekchar () == '!' || peekchar () == '|'))
|
||||
if (c == '#')
|
||||
{
|
||||
int p = peekchar ();
|
||||
if (p == '!' || p == '|')
|
||||
{
|
||||
c = readchar ();
|
||||
reader_read_block_comment (c, readchar ());
|
||||
return reader_eat_whitespace (readchar ());
|
||||
}
|
||||
}
|
||||
return c;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue