gnucash master: Remove deprecated functions
Christopher Lam
clam at code.gnucash.org
Mon Mar 28 11:45:21 EDT 2022
Updated via https://github.com/Gnucash/gnucash/commit/73ddaa8c (commit)
from https://github.com/Gnucash/gnucash/commit/03cbbd1c (commit)
commit 73ddaa8c4009fc0e89c8ae428a732d804e66c68e
Author: Christopher Lam <christopher.lck at gmail.com>
Date: Mon Mar 28 23:02:38 2022 +0800
Remove deprecated functions
Were resurrected in error 5c7967c4a
diff --git a/bindings/guile/engine.scm b/bindings/guile/engine.scm
index c7697068e..99074e869 100644
--- a/bindings/guile/engine.scm
+++ b/bindings/guile/engine.scm
@@ -29,44 +29,3 @@
(load-and-reexport (sw_engine)
(gnucash engine business-core)
(gnucash engine gnc-numeric))
-
-(export gnc-pricedb-lookup-latest-before-t64)
-(export gnc-pricedb-lookup-latest-before-any-currency-t64)
-(export gnc:account-map-descendants)
-(export gnc:account-map-children)
-(export account-full-name<?)
-(export accounts-get-children-depth)
-
-(define (gnc-pricedb-lookup-latest-before-t64 . args)
- (issue-deprecation-warning "gnc-pricedb-lookup-latest-before-t64 has been renamed to gnc-pricedb-lookup-nearest-before-t64")
- (apply gnc-pricedb-lookup-nearest-before-t64 args))
-
-(define (gnc-pricedb-lookup-latest-before-any-currency-t64 . args)
- (issue-deprecation-warning "gnc-pricedb-lookup-latest-before-any-currency-t64 has been renamed to gnc-pricedb-lookup-nearest-before-any-currency-t64")
- (apply gnc-pricedb-lookup-nearest-before-any-currency-t64 args))
-
-;; A few account related utility functions which used to be in engine-utilities.scm
-(define (gnc:account-map-descendants thunk account)
- (issue-deprecation-warning "gnc:account-map-descendants is deprecated.")
- (map thunk (or (gnc-account-get-descendants-sorted account) '())))
-
-(define (gnc:account-map-children thunk account)
- (issue-deprecation-warning "gnc:account-map-children is deprecated.")
- (map thunk (or (gnc-account-get-children-sorted account) '())))
-
-;; account related functions
-;; helper for sorting of account list
-(define (account-full-name<? a b)
- (issue-deprecation-warning
- "account-full-name<? is deprecated. use gnc:account-full-name<? instead.")
- (string<? (gnc-account-get-full-name a) (gnc-account-get-full-name b)))
-
-;; return maximum depth over accounts and their children, if any
-(define (accounts-get-children-depth accounts)
- (issue-deprecation-warning "accounts-get-children-depth is deprecated. use \
-gnc:accounts-get-children-depth instead.")
- (1- (apply max
- (map (lambda (acct)
- (+ (gnc-account-get-current-depth acct)
- (gnc-account-get-tree-depth acct)))
- accounts))))
Summary of changes:
bindings/guile/engine.scm | 41 -----------------------------------------
1 file changed, 41 deletions(-)
More information about the gnucash-changes
mailing list