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
2026-08-13 14:35:00 -05:00 · 2008-07-05 22:31:09 +00:00
parent cfafaf8e57
commit ea76d79aba
1 changed files with 3 additions and 3 deletions
@@ -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)