From b400b1b59eda4d6299b68aaa7af9e20760e53880 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=B6hler?= <andi5.py@gmx.net>
Date: Mon, 9 Feb 2009 00:18:00 +0000
Subject: [PATCH] Bug #570894: Fix an else clause in budget->guid.

Scheme is not common lisp, so rather use 'else', t might be unbound.
Found by Forest Bond.

BP

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17885 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/app-utils/options.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/app-utils/options.scm b/src/app-utils/options.scm
index 50fb07c7d5..1885eca20e 100644
--- a/src/app-utils/options.scm
+++ b/src/app-utils/options.scm
@@ -314,7 +314,7 @@
   (define (budget->guid budget)
     (cond ((eq? budget #f) #f)
           ((string? budget) budget)
-          (t (gncBudgetGetGUID budget))))
+          (else (gncBudgetGetGUID budget))))
 
   (define (guid->budget budget)
     (if (string? budget)