From 520fdd2b0176b06b2fd510dd120ebe0c0c05098b Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sun, 26 Mar 2000 22:59:03 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2120 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/qif-import/qif-parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/scm/qif-import/qif-parse.scm b/src/scm/qif-import/qif-parse.scm index 36d718d380..40178e4d7c 100644 --- a/src/scm/qif-import/qif-parse.scm +++ b/src/scm/qif-import/qif-parse.scm @@ -359,11 +359,11 @@ (define decimal-radix-regexp (make-regexp - "^\\$?-?\\$?[0-9]+$|^\\$?-?\\$?[0-9]?[0-9]?[0-9]?(,[0-9][0-9][0-9])*(\\.[0-9]*)?$")) + "^\\$?-?\\$?[0-9]+$|^\\$?-?\\$?[0-9]?[0-9]?[0-9]?(,?[0-9][0-9][0-9])*(\\.[0-9]*)?$")) (define comma-radix-regexp (make-regexp - "^\\$?-?\\$?[0-9]+$|^\\$?-?\\$?[0-9]?[0-9]?[0-9]?(\\.[0-9][0-9][0-9])*(,[0-9]*)?$")) + "^\\$?-?\\$?[0-9]+$|^\\$?-?\\$?[0-9]?[0-9]?[0-9]?(\\.?[0-9][0-9][0-9])*(,[0-9]*)?$")) (define (value-is-decimal-radix? value) (if (regexp-exec decimal-radix-regexp value)