From ea76d79ababa9852ceeb8064b748b69a6f6a1b8c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=B6hler?= <andi5.py@gmx.net>
Date: Sat, 5 Jul 2008 22:31:09 +0000
Subject: [PATCH] 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
---
 src/app-utils/options.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/app-utils/options.scm b/src/app-utils/options.scm
index 375411ac46..84a9c319ad 100644
--- 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)