core: reader_read_block_comment: Prepare for M2-Planet.
* src/reader.c (reader_read_block_comment): Prepare for M2-Planet.
This commit is contained in:
parent
e8252d599d
commit
f56b25b8a5
|
@ -199,7 +199,8 @@ read_env (SCM a)
|
||||||
SCM
|
SCM
|
||||||
reader_read_block_comment (int s, int c)
|
reader_read_block_comment (int s, int c)
|
||||||
{
|
{
|
||||||
if (c == s && peekchar () == '#')
|
if (c == s)
|
||||||
|
if (peekchar () == '#')
|
||||||
return readchar ();
|
return readchar ();
|
||||||
return reader_read_block_comment (s, readchar ());
|
return reader_read_block_comment (s, readchar ());
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue