From bb4b136b008466065113971782a548e4d92de769 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 20 Aug 2018 13:36:33 -0400
Subject: [PATCH] Very small speedup - fixnums for vector access

---
 runtime.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/runtime.c b/runtime.c
index 10058a25..c77568e8 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1765,7 +1765,7 @@ object Cyc_vector_set(void *data, object v, object k, object obj)
 {
   int idx;
   Cyc_check_vec(data, v);
-  Cyc_check_num(data, k);
+  Cyc_check_fixnum(data, k);
   idx = unbox_number(k);
 
   if (idx < 0 || idx >= ((vector) v)->num_elements) {
@@ -1783,7 +1783,7 @@ object Cyc_vector_ref(void *data, object v, object k)
 {
   int idx;
   Cyc_check_vec(data, v);
-  Cyc_check_num(data, k);
+  Cyc_check_fixnum(data, k);
 
   idx = unbox_number(k);
   if (idx < 0 || idx >= ((vector) v)->num_elements) {