From 8628ffa957b0e9446a6ff62df2cfd949a2107172 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Fri, 30 Oct 2020 19:54:06 +0800
Subject: [PATCH] 3/3 [engine.scm] deprecate scheme utility functions

---
 bindings/guile/engine.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bindings/guile/engine.scm b/bindings/guile/engine.scm
index da91cf47cf..6b74ed3b59 100644
--- a/bindings/guile/engine.scm
+++ b/bindings/guile/engine.scm
@@ -81,20 +81,24 @@
 
 ;; 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.")
         (let ((descendants (or (gnc-account-get-descendants-sorted account) '())))
              (map thunk descendants)))
 
 (define (gnc:account-map-children thunk account)
+  (issue-deprecation-warning "gnc:account-map-children is deprecated.")
         (let ((children (or (gnc-account-get-children-sorted account) '())))
              (map thunk children)))
 
 ;; 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.")
         (apply max
             (map (lambda (acct)
                          (let ((acct-depth (gnc-account-get-current-depth acct)))