From 16c93c78741e2b53cfca455f16ef7777f72bb51a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Jul 2015 17:19:09 -0700
Subject: [PATCH] math.parser: simplify fix-float.

---
 core/math/parser/parser.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 3bc8444f80..ec424716b9 100644
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -437,11 +437,11 @@ M: ratio >base
 <PRIVATE
 
 : fix-float ( str -- newstr )
-    CHAR: e over member? [
-        "e" split1 [ fix-float ] dip "e" glue
+    CHAR: e over index [
+        cut [ fix-float ] dip append
     ] [
         CHAR: . over member? [ ".0" append ] unless
-    ] if ;
+    ] if* ;
 
 : mantissa-expt-normalize ( mantissa expt -- mantissa' expt' )
     [ dup log2 52 swap - [ shift 52 2^ 1 - bitand ] [ 1022 + neg ] bi ]