AUDIT: r17256 - gnucash/trunk/src/app-utils - Bug #531662: Harden budget->guid to grok #f input instead of crashing.

[Andreas Köhler]

Author: andi5
Date: 2008-07-05 18:31:09 -0400 (Sat, 05 Jul 2008)
New Revision: 17256
Trac: http://svn.gnucash.org/trac/changeset/17256

Modified:
   gnucash/trunk/src/app-utils/options.scm
Log:
Bug #531662: Harden budget->guid to grok #f input instead of crashing.

BP


Modified: gnucash/trunk/src/app-utils/options.scm
===================================================================
--- gnucash/trunk/src/app-utils/options.scm	2008-07-05 20:41:21 UTC (rev 17255)
+++ gnucash/trunk/src/app-utils/options.scm	2008-07-05 22:31:09 UTC (rev 17256)
@@ -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)