IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bug #531662: Harden budget->guid to grok #f input instead of crashing.

Browse Source 
BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17256 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2008-07-05 22:31:09 +00:00
parent cfafaf8e57
commit ea76d79aba
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/app-utils/options.scm
View File

@ -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)