Pass on unpaired table arguments to table->list.

This commit is contained in:
Dominik Pantůček 2023-04-18 23:15:02 +02:00
parent 9ee80bb5c9
commit 2235df9295
2 changed files with 6 additions and 5 deletions

View file

@ -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)

View file

@ -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)))