From 943bde59f9f30c7205efd704485ed5670cfbd5f7 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 22 Oct 2009 18:55:32 -0500
Subject: [PATCH] speed up dec>float a little

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

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index eaa58ac177..32bacf5f49 100644
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -83,8 +83,8 @@ SYMBOL: negative?
     ] if ; inline
 
 : dec>float ( str -- n/f )
-    [ CHAR: , eq? not ] filter
-    >byte-array 0 suffix (string>float) ;
+    [ CHAR: , eq? not ] BV{ } filter-as
+    0 over push B{ } like (string>float) ;
 
 : hex>float-parts ( str -- neg? mantissa-str expt )
     "-" ?head swap "p" split1 [ 10 base> ] [ 0 ] if* ;