QIF Import fails out of CVS

[Derek Atkins]

Hi,

I applied that patch and it definitely fixes the hash-fold problem.
However, it still crashes.  When I hit 'next' from the "Match
payee's/memos" window I still get the "An error occurred while
importing" error along with this backtrace:

Backtrace:
13  [#<procedure ()>]
14  (let* ((old-group #) (new-group #) (gnc-acct-hash #) ...) (for-each (lambda # #) (vector->list qif-acct-map)) ...)
15* [for-each #<procedure (qif-file)> (#<qif-file path: /home/warlord/GnuCash/Chase.qif y2k-threshold: 50 xtns: # accounts: () cats: () classes: ()>)]
16* [#<procedure (qif-file)> #<qif-file path: /home/warlord/GnuCash/Chase.qif y2k-threshold: 50 xtns: (# # # ...) accounts: () cats: () classes: ()>]
17* [for-each #<procedure (xtn)> (#<qif-xtn date: # payee: TRADER JOE'S # 0005SM2    Retail address: #f number: #f action: #f cleared: #f from-acct: Chase share-price: #f num-shares: #f security-name: #f commission: #f splits: # mark: #f> #<qif-xtn date: # payee: SPORTY'S CATALOGS         Retail address: #f number: #f action: #f cleared: #f from-acct: Chase share-price: #f num-shares: #f security-name: #f commission: #f splits: # mark: #f> #<qif-xtn date: # payee: FOODMASTER #04     SI3    Retail address: #f number: #f action: #f cleared: #f from-acct: Chase share-price: #f num-shares: #f security-name: #f commission: #f splits: # mark: #f> ...)]
18* [#<procedure (xtn)> #<qif-xtn date: (28 9 2000) payee: TRADER JOE'S # 0005SM2    Retail address: #f number: #f action: #f cleared: #f from-acct: Chase share-price: #f num-shares: #f security-name: #f commission: #f splits: (#) mark: #f>]
19* (if (not (qif-xtn:mark xtn)) (begin (let # # ...)))
20  (begin (let (#) (gnc:transaction-begin-edit gnc-xtn) ...))
21  (let ((gnc-xtn #)) (gnc:transaction-begin-edit gnc-xtn) ...)
22* [qif-import:qif-xtn-to-gnc-xtn #<qif-xtn date: (28 9 2000) payee: TRADER JOE'S # 0005SM2    Retail address: #f number: #f action: #f cleared: #f from-acct: Chase share-price: #f num-shares: #f security-name: #f commission: #f splits: (#) mark: #f> #<qif-file path: /home/warlord/GnuCash/Chase.qif y2k-threshold: 50 xtns: (# # # ...) accounts: () cats: () classes: ()> ...]
23  (let ((splits #) (gnc-near-split #) (near-split-total #) ...) (apply gnc:transaction-set-date gnc-xtn ...) ...)
24* (if (not qif-security) (begin (set! near-acct-info #) (set! near-acct-name #) ...) ...)
25  (begin (set! near-acct-info (hash-ref qif-acct-map qif-from-acct)) (set! near-acct-name (qif-map-entry:gnc-name near-acct-info)) ...)
26* [for-each #<procedure (qif-split)> (#<qif-split category:  class:  memo: #f amount: # category-is-account?: #f matching-cleared: #f mark: #f miscx-category: #f miscx-is-account?: #f miscx-class: #f>)]
27* [#<procedure (qif-split)> #<qif-split category:  class:  memo: #f amount: -19.59 category-is-account?: #f matching-cleared: #f mark: #f miscx-category: #f miscx-is-account?: #f miscx-class: #f>]
28* (if (not (qif-split:mark qif-split)) (let (# # # ...) (if # #) ...))
29  (let ((gnc-far-split #) (far-acct-info #f) (far-acct-name #f) ...) (if (not split-amt) (set! split-amt #)) ...)
30* [#<procedure (n)> -19.59]
31  (if n (gnc:double-to-gnc-numeric n GNC-DENOM-AUTO ...) ...)
32  [gnc:double-to-gnc-numeric -19.59 0 ...]
/usr/gnucash/share/gnucash/scm/qif-import/qif-to-gnc.scm:362:24: In procedure gnc:double-to-gnc-numeric in expression (gnc:double-to-gnc-numeric n GNC-DENOM-AUTO ...):
/usr/gnucash/share/gnucash/scm/qif-import/qif-to-gnc.scm:362:24: Wrong type argument in position 2: 4294967295

-derek
-- 
       Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
       Member, MIT Student Information Processing Board  (SIPB)
       URL: http://web.mit.edu/warlord/    PP-ASEL-IA     N1NWH
       warlord@MIT.EDU                        PGP key available