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

[gnc-engine-guile.c] return #f when gnc_numeric has error

Browse Source 
otherwise it'd throw guile div/0 exception
This commit is contained in:
Christopher Lam 2020-11-23 07:48:57 +08:00
parent d11bdb3e3a
commit 8f32992100
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bindings/guile/gnc-engine-guile.c
View File

@ -1731,8 +1731,8 @@ gnc_scm_to_numeric(SCM gncnum)
SCM SCM
gnc_numeric_to_scm(gnc_numeric arg) gnc_numeric_to_scm(gnc_numeric arg)
{ {
return scm_divide(scm_from_int64(arg.num), return gnc_numeric_check (arg) ? SCM_BOOL_F :
scm_from_int64(arg.denom)); scm_divide (scm_from_int64 (arg.num), scm_from_int64 (arg.denom));
} }
static SCM static SCM