From 384dce46bf2313f9c429984b4e7cefe9d14fbcee Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 2 May 2010 13:15:22 +0200
Subject: [PATCH] add underflow check in make-array

* libguile/vm-i-scheme.c (make-array): Check for underflow before making
  the array.
---
 libguile/vm-i-scheme.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index d2bd43514..fb1af1106 100644
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -386,6 +386,7 @@ VM_DEFINE_INSTRUCTION (163, make_array, "make-array", 3, -1, 1)
   len = (len << 8) + FETCH ();
   POP (shape);
   SYNC_REGISTER ();
+  PRE_CHECK_UNDERFLOW (len);
   ret = scm_from_contiguous_array (shape, sp - len + 1, len);
   DROPN (len);
   PUSH (ret);