IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bug 797583 - gnc:book-add-quotes crashes when there are no quotes

Browse Source 
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:
Christopher Lam 2020-03-28 09:18:54 +08:00
parent ed2437e427
commit f05128b2c2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgnucash/scm/price-quotes.scm
View File

@ -199,10 +199,11 @@
commodity-list) commodity-list)
;; Now translate to just what gnc-fq-helper expects. ;; Now translate to just what gnc-fq-helper expects.
(append (and (or (pair? currency-list-filtered) (pair? commodity-list))
(hash-map->list cons commodity-hash) (append
(map (lambda (cmd) (cons (car cmd) (list (cdr cmd)))) (hash-map->list cons commodity-hash)
currency-list-filtered))))) (map (lambda (cmd) (cons (car cmd) (list (cdr cmd))))
currency-list-filtered))))))
(define (fq-call-data->fq-calls fq-call-data) (define (fq-call-data->fq-calls fq-call-data)
;; take an output element from book->commodity->fq-call-data and ;; take an output element from book->commodity->fq-call-data and