sequences: simplify <repetition>

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 737f9a85d673cc5cc314b098c451575b50209c2f..041a9354157dc5ed1309866d24dad5afaeb1eabe 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -275,8 +275,7 @@ TUPLE: repetition
     { elt read-only } ;
 
 : <repetition> ( len elt -- repetition )
-    over 0 < [ non-negative-number-expected ] when
-    repetition boa ; inline
+    [ assert-non-negative ] dip repetition boa ; inline
 
 M: repetition length length>> ; inline
 M: repetition nth-unsafe nip elt>> ; inline