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

diff --git a/extra/dbf/dbf.factor b/extra/dbf/dbf.factor
index 240267bbacbb16b5238e1c89c29fc4a1aefc6ae8..62daadedc8f87b28692c8ed5bd69c8af4d47ba41 100644 (file)
--- 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 ;