[business-core] deprecate gnc:entry-type-percent-p

This function is only used once. deprecate it.
pull/541/head
Christopher Lam 7 years ago
parent e654bd34af
commit 0c433e02f7

@ -105,7 +105,7 @@
(_ "Total"))))
(define (monetary-or-percent numeric currency entry-type)
(if (gnc:entry-type-percent-p entry-type)
(if (eqv? entry-type GNC-AMT-TYPE-PERCENT)
(string-append (gnc:default-html-gnc-numeric-renderer numeric #f) " " (_ "%"))
(gnc:make-gnc-monetary currency numeric)))

@ -94,6 +94,8 @@
(else ""))))
(define (gnc:entry-type-percent-p type-val)
(issue-deprecation-warning
"gnc:entry-type-percent-p is deprecated.")
(let ((type type-val))
(equal? type GNC-AMT-TYPE-PERCENT)))

Loading…
Cancel
Save