sequences: bound -> index-or-length

[factor.git] / basis / prettyprint / prettyprint.factor

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index f389b351ecde39e912d0ac93057e197058eec9ea..a96a1eec1da2bfe04c127ea3a7ad82ca1d89d1ff 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -70,7 +70,7 @@ SYMBOL: =>
     ] [ ] make ;
 
 : remove-breakpoints ( quot pos -- quot' )
-    1 + bound cut [ (remove-breakpoints) ] bi@ [ => ] glue ;
+    1 + index-or-length cut [ (remove-breakpoints) ] bi@ [ => ] glue ;
 
 : optimized-frame? ( triple -- ? ) second word? ;