From 1ac06460a66d01d0310f69961fd6ef265c2dcd02 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 24 Oct 2019 21:38:21 +0200
Subject: [PATCH] core: reader_read_block_comment: Prepare for M2-Planet.

* src/reader.c (reader_read_block_comment): Prepare for M2-Planet.
---
 src/reader.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/reader.c b/src/reader.c
index 9622fd0b..3e03b351 100644
--- a/src/reader.c
+++ b/src/reader.c
@@ -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 ());
 }