Handle types correctly, fix body membership.
This commit is contained in:
parent
34f54b2bb0
commit
0c3ebde1fb
3 changed files with 8 additions and 4 deletions
|
@ -548,6 +548,7 @@
|
|||
(define (print-member-balances-table mr)
|
||||
(let ((data (map (lambda (r)
|
||||
(list (cal-day->string (cadr r))
|
||||
(list-ref r 6)
|
||||
(list-ref r 4)
|
||||
(format "\t~A" (exact->inexact (list-ref r 5)))
|
||||
(format "\t~A" (exact->inexact (car r)))
|
||||
|
@ -557,7 +558,7 @@
|
|||
#:border '(((#:bottom #:right light) ... (#:bottom light))
|
||||
((#:right light) ... none)
|
||||
...)
|
||||
(cons '("\tDate\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
|
||||
(cons '("\tDate\t" "\tType\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
|
||||
data))))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue