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

otherwise it'd throw guile div/0 exception
6 years ago · 8f32992100
parent d11bdb3e3a
commit 8f32992100
1 changed files with 2 additions and 2 deletions
--- a/bindings/guile/gnc-engine-guile.c
+++ b/bindings/guile/gnc-engine-guile.c
@ -1731,8 +1731,8 @@ gnc_scm_to_numeric(SCM gncnum)
 SCM
 gnc_numeric_to_scm(gnc_numeric arg)
 {
-    return scm_divide(scm_from_int64(arg.num),
-                           scm_from_int64(arg.denom));
+    return gnc_numeric_check (arg) ? SCM_BOOL_F :
+        scm_divide (scm_from_int64 (arg.num), scm_from_int64 (arg.denom));
 }

 static SCM