factor: alien.c-types:short -> cramp

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

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