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:
Jan (janneke) Nieuwenhuizen 2019-10-24 21:38:21 +02:00
parent 70ed273469
commit ccb27b9705
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions

View File

@ -198,8 +198,9 @@ read_env (SCM a)
SCM
reader_read_block_comment (int s, int c)
{
if (c == s && peekchar () == '#')
return readchar ();
if (c == s)
if (peekchar () == '#')
return readchar ();
return reader_read_block_comment (s, readchar ());
}