From 6bfff4b6ed518d25a0f0d21594ee8886a69d8966 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 19 Feb 2019 13:17:33 -0500
Subject: [PATCH] Perform fixnum type check

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

diff --git a/scheme/base.sld b/scheme/base.sld
index fff0534f..1d9c90e9 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -989,7 +989,7 @@
         char ch_buf[5];
         char_type c;
         int buflen, num_cp, len;
-        Cyc_check_int(data, count);
+        Cyc_check_fixnum(data, count);
         if (!obj_is_char(fill)) {
           Cyc_rt_raise2(data, \"Expected character buf received\", fill);
         }