From 1d5a5989294df1f5b46c78eaf60f12f9d87dd995 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 5 Aug 2013 09:49:24 -0700
Subject: [PATCH] sequences: don't allow negative repetitions.

---
 core/sequences/sequences.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index df4f7b8529..6a1d0a10ee 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -268,7 +268,9 @@ INSTANCE: slice virtual-sequence
 ! One element repeated many times
 TUPLE: repetition { len read-only } { elt read-only } ;
 
-C: <repetition> repetition
+: <repetition> ( len elt -- repetition )
+    over 0 < [ non-negative-integer-expected ] when
+    repetition boa ; inline
 
 M: repetition length len>> ; inline
 M: repetition nth-unsafe nip elt>> ; inline