mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Bug 797583 - gnc:book-add-quotes crashes when there are no quotes
When Get Quotes being run on empty book, the gnc:book-add-quotes function expects book->commodity->fq-call-data to return #f
This commit is contained in:
parent
ed2437e427
commit
f05128b2c2
@ -199,10 +199,11 @@
|
||||
commodity-list)
|
||||
|
||||
;; Now translate to just what gnc-fq-helper expects.
|
||||
(and (or (pair? currency-list-filtered) (pair? commodity-list))
|
||||
(append
|
||||
(hash-map->list cons commodity-hash)
|
||||
(map (lambda (cmd) (cons (car cmd) (list (cdr cmd))))
|
||||
currency-list-filtered)))))
|
||||
currency-list-filtered))))))
|
||||
|
||||
(define (fq-call-data->fq-calls fq-call-data)
|
||||
;; take an output element from book->commodity->fq-call-data and
|
||||
|
Loading…
Reference in New Issue
Block a user