core: reader_eat_whitespace: Prepare for M2-Planet.

* src/reader.c (reader_eat_whitespace): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 21:37:41 +02:00
parent 9cbf29b70a
commit bd816cf29b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -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;
}