AUDIT: r17181 - gnucash/trunk/src/import-export/qif-import - Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found.

[Charles Day]

Author: cedayiv
Date: 2008-05-29 17:13:24 -0400 (Thu, 29 May 2008)
New Revision: 17181
Trac: http://svn.gnucash.org/trac/changeset/17181

Modified:
   gnucash/trunk/src/import-export/qif-import/qif-parse.scm
Log:
Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found.
BP


Modified: gnucash/trunk/src/import-export/qif-import/qif-parse.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-parse.scm	2008-05-29 15:23:56 UTC (rev 17180)
+++ gnucash/trunk/src/import-export/qif-import/qif-parse.scm	2008-05-29 21:13:24 UTC (rev 17181)
@@ -312,7 +312,7 @@
                           (match:substring match 2)
                           (match:substring match 3)))
         (numeric-date-parts '())
-        (retval #f))
+        (retval '()))
 
     ;;(define (print-list l)
     ;;  (for-each (lambda (x) (display x) (display " ")) l))
@@ -388,7 +388,7 @@
 ;;  of possibilities.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define (qif-parse:check-date-format date-string possible-formats)
-  (let ((retval #f))
+  (let ((retval '()))
     (if (or (not (string? date-string))
             (not (> (string-length date-string) 0)))
         (set! retval possible-formats))