From ff622ee9b3fe5c2ad1a0af77402536e19d822fef Mon Sep 17 00:00:00 2001
From: David Johnson-Davies <david@technoblogy.com>
Date: Sun, 3 Feb 2019 18:09:12 +0000
Subject: [PATCH] Version 2.5a - 1st December 2018

Reverted
---
 ulisp-arm.ino | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/ulisp-arm.ino b/ulisp-arm.ino
index 35c0d8f..932c40e 100644
--- a/ulisp-arm.ino
+++ b/ulisp-arm.ino
@@ -1,5 +1,5 @@
-/* uLisp ARM Version 2.5b - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 3rd February 2019
+/* uLisp ARM Version 2.5a - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 1st December 2018
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */
@@ -3815,13 +3815,7 @@ void pmantissa (float f, pfun_t pfun) {
     int d = (int)(i / mul);
     pfun(d + '0');
     i = i - d * mul;
-    if (i == 0) { 
-      if (!point) { 
-        for (int k=0; k<sig; k++) pfun('0');
-        pfun('.'); pfun('0');
-      }
-      return;
-    }
+    if (i == 0) { if (!point) { pfun('.'); pfun('0'); } return; }
     if (j == sig && sig >= 0) { pfun('.'); point = true; }
     mul = mul / 10;
   }