From 5354fcb0bbc09f4b4bd93252bc1e041638a9f83d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 28 Oct 2019 15:49:20 -0400
Subject: [PATCH] Check bignum return value

---
 scheme/cyclone/cgen.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 9f8f42d8..8d14e9d9 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -640,7 +640,7 @@
               (string-append 
                 "alloc_bignum(data, " cvar-name "); "
                 ;; TODO: need error checking, this is just a first cut:
-                "mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10);")))))
+                "BIGNUM_CALL(mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10));")))))
     ((complex? exp)
       (let* ((cvar-name (mangle (gensym 'c)))
              (num2str (lambda (n)