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