|
@@ -138,7 +138,7 @@
|
|
|
(defun journal-balance (journal &optional query)
|
|
(defun journal-balance (journal &optional query)
|
|
|
(let ((balance (apply #'balance (entries journal)
|
|
(let ((balance (apply #'balance (entries journal)
|
|
|
(when query (parse-query query)))))
|
|
(when query (parse-query query)))))
|
|
|
- (unless (zerop (hash-table-size balance))
|
|
|
|
|
|
|
+ (unless (zerop (hash-table-count balance))
|
|
|
(format-balance balance))))
|
|
(format-balance balance))))
|
|
|
|
|
|
|
|
(defun accounts (entries &key predicate real &allow-other-keys)
|
|
(defun accounts (entries &key predicate real &allow-other-keys)
|
