From 8f32992100c6b1ca2554b023d3cf6df2b8aafca7 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Mon, 23 Nov 2020 07:48:57 +0800
Subject: [PATCH] [gnc-engine-guile.c] return #f when gnc_numeric has error

otherwise it'd throw guile div/0 exception
---
 bindings/guile/gnc-engine-guile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bindings/guile/gnc-engine-guile.c b/bindings/guile/gnc-engine-guile.c
index 06daad9e2a..ada25aab55 100644
--- 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