From 12253f3c38a6e81167b4f7f03d71cca2841efca6 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 3 Jun 2018 14:14:32 +0800 Subject: [PATCH] [invoice] simplify num-columns-required to use SRFI-1 --- gnucash/report/business-reports/invoice.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gnucash/report/business-reports/invoice.scm b/gnucash/report/business-reports/invoice.scm index 336472b903..511ccaa6e8 100644 --- a/gnucash/report/business-reports/invoice.scm +++ b/gnucash/report/business-reports/invoice.scm @@ -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)