IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[invoice] simplify num-columns-required to use SRFI-1

Browse Source
This commit is contained in:
Christopher Lam 2018-06-03 14:14:32 +08:00
parent 30f14191e6
commit 12253f3c38
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnucash/report/business-reports/invoice.scm
View File

@ -57,11 +57,11 @@
(define columns-used-size 9)
(define (num-columns-required columns-used)
(do ((i 0 (1+ i))
(col-req 0 col-req))
((>= i columns-used-size) col-req)
(if (vector-ref columns-used i)
(set! col-req (1+ col-req)))))
;; count number of columns where (vector-ref columns-used col) is #t
(count identity
(map (lambda (col)
(vector-ref columns-used col))
(iota columns-used-size))))
(define (build-column-used options)
(define (opt-val section name)