>From a75e8c37f5e0a2ac00c10d6b50ce8171dda94b67 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Sat, 17 Mar 2012 19:36:46 +0100
Subject: [PATCH] Do not specialise make-vector calls with negative lengths

---
 c-platform.scm          |    2 +-
 tests/library-tests.scm |    4 ++++
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/c-platform.scm b/c-platform.scm
index 856af14..d502dc0 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -1045,7 +1045,7 @@
 		  (let ([tmp (gensym)]
 			[c (first (node-parameters n))] )
 		    (and (fixnum? c)
-			 (<= c 32)
+			 (<= 0 c 32)
 			 (let ([val (if (pair? (cdr callargs))
 					(second callargs)
 					(make-node '##core#undefined '() '()) ) ] )
diff --git a/tests/library-tests.scm b/tests/library-tests.scm
index 79a7369..4a43afc 100644
--- a/tests/library-tests.scm
+++ b/tests/library-tests.scm
@@ -268,3 +268,7 @@
 
 (assert (= 2 guard-called))
 
+;;; vector and blob limits
+
+(assert-fail (make-blob -1))
+(assert-fail (make-vector -1))
-- 
1.7.6