Pass on unpaired table arguments to table->list.
This commit is contained in:
parent
9ee80bb5c9
commit
2235df9295
2 changed files with 6 additions and 5 deletions
|
@ -391,8 +391,9 @@
|
||||||
)
|
)
|
||||||
))
|
))
|
||||||
|
|
||||||
(define (unpaired-table mb)
|
(define (unpaired-table mb . args)
|
||||||
(table->list
|
(apply
|
||||||
|
table->list
|
||||||
(cons
|
(cons
|
||||||
(list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
|
(list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
|
||||||
(map
|
(map
|
||||||
|
@ -409,7 +410,8 @@
|
||||||
))
|
))
|
||||||
(mbase-unpaired mb)))
|
(mbase-unpaired mb)))
|
||||||
#:row0-border #t
|
#:row0-border #t
|
||||||
#:col-border #t))
|
#:col-border #t
|
||||||
|
args))
|
||||||
|
|
||||||
;; Prints all transactions which the members base considers unpaired.
|
;; Prints all transactions which the members base considers unpaired.
|
||||||
(define (print-unpaired-table mb)
|
(define (print-unpaired-table mb)
|
||||||
|
|
|
@ -131,8 +131,7 @@
|
||||||
(append
|
(append
|
||||||
(list ""
|
(list ""
|
||||||
"Unpaired transactions:")
|
"Unpaired transactions:")
|
||||||
(parameterize ((*table-border-style* 'ascii))
|
(unpaired-table mb #:border-style 'ascii)))))
|
||||||
(unpaired-table mb))))))
|
|
||||||
(append income-lst
|
(append income-lst
|
||||||
unpaired-lst)))
|
unpaired-lst)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue