AUDIT: r17885 - gnucash/trunk/src/app-utils - Bug #570894: Fix an else clause in budget->guid.

Andreas Köhler andi5 at cvs.gnucash.org
Sun Feb 8 19:18:00 EST 2009


Author: andi5
Date: 2009-02-08 19:18:00 -0500 (Sun, 08 Feb 2009)
New Revision: 17885
Trac: http://svn.gnucash.org/trac/changeset/17885

Modified:
   gnucash/trunk/src/app-utils/options.scm
Log:
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

Modified: gnucash/trunk/src/app-utils/options.scm
===================================================================
--- gnucash/trunk/src/app-utils/options.scm	2009-02-08 14:56:16 UTC (rev 17884)
+++ gnucash/trunk/src/app-utils/options.scm	2009-02-09 00:18:00 UTC (rev 17885)
@@ -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)



More information about the gnucash-changes mailing list