From 8ef7e9cd99fbe0880ace3e9318e438c29c75497f Mon Sep 17 00:00:00 2001 From: Charles Day Date: Thu, 29 May 2008 21:13:24 +0000 Subject: [PATCH] Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found. BP git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17181 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/import-export/qif-import/qif-parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/import-export/qif-import/qif-parse.scm b/src/import-export/qif-import/qif-parse.scm index ab561482c9..93d5817d7c 100644 --- a/src/import-export/qif-import/qif-parse.scm +++ b/src/import-export/qif-import/qif-parse.scm @@ -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))