dbf: use substitute instead of replace in parse-numeric.

2018-02-28 09:56:12 -08:00 · 2018-02-28 09:56:12 -08:00 · c8d1b756d4
parent 557a6cca69
commit c8d1b756d4
1 changed files with 2 additions and 1 deletions
--- a/extra/dbf/dbf.factor
+++ b/extra/dbf/dbf.factor
@ -228,7 +228,8 @@ ERROR: illegal-logical value ;
    } cond ;

 : parse-numeric ( byte-array -- n )
-    [ "\r\n\t *" member? ] trim "," "." replace string>number ;
+    [ "\r\n\t *" member? ] trim
+    H{ { CHAR: , CHAR: . } } substitute string>number ;

 : parse-double ( byte-array -- n )
    dup length 8 assert= le> bits>double ;