From 0325383f0e8f72c9002ebc8958c4ae15501198be Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 11 Feb 2017 18:00:56 -0500
Subject: [PATCH] Bignum support for (exact?)

---
 scheme/base.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index ceb879b5..55966b9e 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1098,7 +1098,8 @@
   (define-c exact?
     "(void *data, int argc, closure _, object k, object num)"
     " Cyc_check_num(data, num);
-      if (obj_is_int(num) || type_of(num) == integer_tag)
+      if (obj_is_int(num) || type_of(num) == integer_tag 
+                          || type_of(num) == bignum_tag)
         return_closcall1(data, k, boolean_t);
       return_closcall1(data, k, boolean_f); ")
   (define (inexact? num) (not (exact? num)))