andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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 Nieuwenhuizen 2019-10-24 21:38:21 +02:00
parent ec490ef2fd
commit 1ac06460a6
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/reader.c
View File

@ -198,8 +198,9 @@ 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)
return readchar (); if (peekchar () == '#')
return readchar ();
return reader_read_block_comment (s, readchar ()); return reader_read_block_comment (s, readchar ());
} }