From 242a366cbfb28a920430430c6be965f49eecafc6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 17 Nov 2013 02:32:27 +0900
Subject: [PATCH] check vector index out of range

---
 src/vector.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/vector.c b/src/vector.c
index e4137680..963a293a 100644
--- a/src/vector.c
+++ b/src/vector.c
@@ -91,6 +91,9 @@ pic_vec_vector_ref(pic_state *pic)
 
   pic_get_args(pic, "vi", &v, &k);
 
+  if (k < 0 || v->len <= k) {
+    pic_error(pic, "vector-ref: index out of range");
+  }
   return v->data[k];
 }
 
@@ -103,6 +106,9 @@ pic_vec_vector_set(pic_state *pic)
 
   pic_get_args(pic, "vio", &v, &k, &o);
 
+  if (k < 0 || v->len <= k) {
+    pic_error(pic, "vector-set!: index out of range");
+  }
   v->data[k] = o;
   return pic_false_value();
 }