Bug #531662: Harden budget->guid to grok #f input instead of crashing.

BP git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17256 57a11ea4-9604-0410-9ed3-97b8803252fd
18 years ago · ea76d79aba
parent cfafaf8e57
commit ea76d79aba
1 changed files with 3 additions and 3 deletions
--- a/src/app-utils/options.scm
+++ b/src/app-utils/options.scm
@ -312,9 +312,9 @@
         documentation-string)

  (define (budget->guid budget)
-    (if (string? budget)
-        budget
-        (gncBudgetGetGUID budget)))
+    (cond ((eq? budget #f) #f)
+          ((string? budget) budget)
+          (t (gncBudgetGetGUID budget))))

  (define (guid->budget budget)
    (if (string? budget)