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

[cashflow-barchart] remove srfi-1 aliases

Browse Source
This commit is contained in:
Christopher Lam 2019-01-22 18:53:14 +08:00
parent 56bccd1b50
commit 1a69bf1b2f
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/standard-reports/cashflow-barchart.scm
View File

@ -37,10 +37,6 @@
(gnc:module-load "gnucash/report/report-system" 0) (gnc:module-load "gnucash/report/report-system" 0)
;; Define these utilities to avoid using module srfi-1
(define first car)
(define second cadr)
(define reportname (N_ "Cash Flow Barchart")) (define reportname (N_ "Cash Flow Barchart"))
;; define all option's names so that they are properly defined ;; define all option's names so that they are properly defined
@ -255,8 +251,8 @@
(set! work-done (+ 1 work-done)) (set! work-done (+ 1 work-done))
(gnc:report-percent-done (* 80 (/ work-done work-to-do))) (gnc:report-percent-done (* 80 (/ work-done work-to-do)))
(let* ((settings (list (cons 'accounts accounts) (let* ((settings (list (cons 'accounts accounts)
(cons 'to-date-t64 (second date-pair)) (cons 'from-date-t64 (car date-pair))
(cons 'from-date-t64 (first date-pair)) (cons 'to-date-t64 (cadr date-pair))
(cons 'report-currency report-currency) (cons 'report-currency report-currency)
(cons 'include-trading-accounts include-trading-accounts) (cons 'include-trading-accounts include-trading-accounts)
(cons 'to-report-currency to-report-currency))) (cons 'to-report-currency to-report-currency)))