artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: reader_read_block_comment: Prepare for M2-Planet.

Browse source 
* src/reader.c (reader_read_block_comment): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 21:38:21 +02:00
parent bd816cf29b
commit 7e8c6585a0
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
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 ());
}