sequences: don't allow negative repetitions.

2013-08-05 09:49:24 -07:00 · 2013-08-05 09:49:24 -07:00 · 1d5a598929
parent 555ea83d89
commit 1d5a598929
1 changed files with 3 additions and 1 deletions
--- 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