From ef4da6a6f8280da59be9e7dca2692c1ff9170d22 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Thu, 24 Oct 2019 21:35:50 +0200
Subject: [PATCH] core: reader_read_identifier_or_number: Prepare for
 M2-Planet.

* src/reader.c (reader_read_identifier_or_number): Prepare for M2-Planet.
---
 src/reader.c | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/reader.c b/src/reader.c
index 56de0091..a010e40b 100644
--- a/src/reader.c
+++ b/src/reader.c
@@ -76,13 +76,15 @@ reader_read_identifier_or_number (int c)
   int i = 0;
   long n = 0;
   int negative_p = 0;
-  if (c == '+' && isdigit (peekchar ()) != 0)
-    c = readchar ();
-  else if (c == '-' && (isdigit (peekchar ()) != 0))
-    {
-      negative_p = 1;
+  if (c == '+')
+    if (isdigit (peekchar ()) != 0)
       c = readchar ();
-    }
+  if (c == '-')
+    if (isdigit (peekchar ()) != 0)
+      {
+        negative_p = 1;
+        c = readchar ();
+      }
   while (isdigit (c) != 0)
     {
       g_buf[i] = c;