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

[commodity-utilities] inline gnc:pricealist-lookup-nearest-in-time

Browse Source 
this is an unexported single-use function. we can safely inline.
This commit is contained in:
Christopher Lam 2019-03-14 09:06:22 +08:00
parent 0e60c77577
commit 274897fb8c
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnucash/report/report-system/commodity-utilities.scm
View File

@ -372,15 +372,6 @@ construct with gnc:make-gnc-monetary and gnc:monetary->string instead.")
(and later (cadr later))))))
;; Find the price of the 'commodity' in the 'pricealist' that is
;; nearest to the 'date'.
(define (gnc:pricealist-lookup-nearest-in-time pricealist commodity date)
(let ((plist (assoc-ref pricealist commodity)))
(or (and plist
(not (null? plist))
(gnc:pricelist-price-find-nearest plist date))
0)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions to get one price at a given time (i.e. not time-variant).
@ -880,8 +871,12 @@ construct with gnc:make-gnc-monetary and gnc:monetary->string instead.")
(gnc:make-gnc-monetary
domestic
(* (gnc:gnc-monetary-amount foreign)
(gnc:pricealist-lookup-nearest-in-time
pricealist (gnc:gnc-monetary-commodity foreign) date)))))))
(let ((plist (assoc-ref pricealist (gnc:gnc-monetary-commodity foreign))))
(or (and plist
(not (null? plist))
(gnc:pricelist-price-find-nearest plist date))
0))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Choosing exchange functions made easy -- get the right function by