QIF importer: adjust order of "or" conditions for faster performance.

BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16952 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day
2008-02-23 02:58:14 +00:00
parent 7644d8fd2e
commit e2cff72ade

View File

@@ -701,9 +701,9 @@
;; just ignore the format ambiguity. Otherwise, it's really an
;; error. ATM since there's no way to correct the error let's
;; just leave it be.
(if (or (all-formats-equivalent? getter parser equiv-thunk formats
objects printer errormsg errortype)
(eq? on-error 'guess-on-ambiguity))
(if (or (eq? on-error 'guess-on-ambiguity)
(all-formats-equivalent? getter parser equiv-thunk formats
objects printer errormsg errortype))
(set! format (car formats))
(begin
(errormsg errortype formats)