← Back to branch summary

~ubuntu-dev/gnucash/ubuntu

« back to all changes in this revision

Viewing changes to src/tax/us/txf.scm

  • Committer: Reinhard Tartler
  • Date: 2008-08-03 07:38:54 UTC
  • mfrom: (2.1.2 debian)
  • Revision ID: siretart@tauware.de-20080803073854-23i4uqi1e73no4oz
merge from debian/unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tax/us/txf.scm
30
30
;;;; Private
31
31
 
32
32
(define (gnc:txf-get-code-info categories code index)
33
 
  (vector-ref (cdr (assv code categories)) index))
 
33
  (let ((category (assv code categories)))
 
34
    (and category
 
35
         (vector-ref (cdr category) index))))
34
36
 
35
37
(define txf-help-categories
36
38
  (list