core: cramp -> bound (was short)

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

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