Mastodon Feed
cwebber@social.coop ("Christine Lemmer-Webber") wrote:
(fold (lambda (trans prev)
(fold
(lambda (p prev)
(if (equal? (posting-account p) "Assets:Bank:Checking")
(amount-+ prev (posting-amount p))
prev))
prev
(transaction-postings trans)))
(make-amount 0 USD)
ledger)this works now horray