gnucash maint: Bug 756335 - When importing, date selection causes exit crash

[John Ralls]

Updated	 via  https://github.com/Gnucash/gnucash/commit/5c496328 (commit)
	from  https://github.com/Gnucash/gnucash/commit/fb67e1f2 (commit)



commit 5c496328d4ead29a5e70372ef8b1fed1a1cece7f
Author: John Ralls <jralls at ceridwen.us>
Date:   Sat Oct 10 19:23:29 2015 -0700

    Bug 756335 - When importing, date selection causes exit crash

diff --git a/src/import-export/qif-imp/qif-parse.scm b/src/import-export/qif-imp/qif-parse.scm
index c28f896..3bc7eae 100644
--- a/src/import-export/qif-imp/qif-parse.scm
+++ b/src/import-export/qif-imp/qif-parse.scm
@@ -419,8 +419,8 @@
   (let ((retval '()))
     (if (or (not (string? date-string))
             (not (> (string-length date-string) 0)))
-        (set! retval possible-formats))
-    (let ((match (regexp-exec qif-date-compiled-rexp date-string)))
+        (set! retval possible-formats)
+        (let ((match (regexp-exec qif-date-compiled-rexp date-string)))
       (if match
           (if (match:substring match 1)
               (set! retval (parse-check-date-format match possible-formats))
@@ -442,7 +442,8 @@
                         (memq 'm-d-y possible-formats))
                     (set! res2 (parse-check-date-format date-mdy possible-formats)))
 
-                (set! retval (append res1 res2))))))
+                (set! retval (append res1 res2)))))))
+
     retval))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Summary of changes:
 src/import-export/qif-imp/qif-parse.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)