r17911 - gnucash/branches/2.2/src/app-utils - [17885] Bug #570894: Fix an else clause in budget->guid.

[Andreas Köhler]

Author: andi5
Date: 2009-02-14 16:12:15 -0500 (Sat, 14 Feb 2009)
New Revision: 17911
Trac: http://svn.gnucash.org/trac/changeset/17911

Modified:
   gnucash/branches/2.2/src/app-utils/options.scm
Log:
[17885] 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.

Modified: gnucash/branches/2.2/src/app-utils/options.scm
===================================================================
--- gnucash/branches/2.2/src/app-utils/options.scm	2009-02-14 21:12:07 UTC (rev 17910)
+++ gnucash/branches/2.2/src/app-utils/options.scm	2009-02-14 21:12:15 UTC (rev 17911)
@@ -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)