From 2f6f275adc2c2b721f4b8159a449d8a83c7cfa50 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 24 Oct 2019 21:37:41 +0200
Subject: [PATCH] core: reader_eat_whitespace: Prepare for M2-Planet.

* src/reader.c (reader_eat_whitespace): Prepare for M2-Planet.
---
 src/reader.c | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/reader.c b/src/reader.c
index 865a3018..29e3873a 100644
--- a/src/reader.c
+++ b/src/reader.c
@@ -162,11 +162,15 @@ reader_eat_whitespace (int c)
     c = readchar ();
   if (c == ';')
     return reader_eat_whitespace (reader_read_line_comment (c));
-  if (c == '#' && (peekchar () == '!' || peekchar () == '|'))
+  if (c == '#')
     {
-      c = readchar ();
-      reader_read_block_comment (c, readchar ());
-      return reader_eat_whitespace (readchar ());
+      int p = peekchar ();
+      if (p == '!' || p == '|')
+        {
+          c = readchar ();
+          reader_read_block_comment (c, readchar ());
+          return reader_eat_whitespace (readchar ());
+        }
     }
   return c;
 }