gnucash maint: [options.scm] Addon previous commit... need to initialize with guid

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/ca6604c9 (commit)
	from  https://github.com/Gnucash/gnucash/commit/d740ac1c (commit)



commit ca6604c93c7a48e8f7a749b372a9b37146104550
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sat Dec 4 08:59:14 2021 +0800

    [options.scm] Addon previous commit... need to initialize with guid

diff --git a/libgnucash/app-utils/options.scm b/libgnucash/app-utils/options.scm
index dbc4e0b5c..4aa435744 100644
--- a/libgnucash/app-utils/options.scm
+++ b/libgnucash/app-utils/options.scm
@@ -466,16 +466,14 @@ the option '~a'."))
          sort-tag
          documentation-string)
 
-  (let* ((initial-budget (gnc-budget-get-default (gnc-get-current-book)))
-	 (selection-budget initial-budget)
-         )
-
+  (define (convert-to-guid item)
+    (if (string? item) item (gncBudgetGetGUID item)))
 
-    (define (convert-to-guid item)
-      (if (string? item) item (gncBudgetGetGUID item)))
+  (define (convert-to-budget item)
+    (if (string? item) (gnc-budget-lookup item (gnc-get-current-book)) item))
 
-    (define (convert-to-budget item)
-      (if (string? item) (gnc-budget-lookup item (gnc-get-current-book)) item))
+  (let* ((initial-budget (gnc-budget-get-default (gnc-get-current-book)))
+	 (selection-budget (convert-to-guid initial-budget)))
 
     (gnc:make-option
      section 



Summary of changes:
 libgnucash/app-utils/options.scm | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)