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

[factor.git] / extra / ui / gadgets / charts / lines / lines.factor

diff --git a/extra/ui/gadgets/charts/lines/lines.factor b/extra/ui/gadgets/charts/lines/lines.factor
index 519588b51aad887683fd1bc3e7dccc920506045d..08c2fa0bba8410a7de9ab071ffaf2328c0e5fb8e 100644 (file)
--- a/extra/ui/gadgets/charts/lines/lines.factor
+++ b/extra/ui/gadgets/charts/lines/lines.factor
@@ -38,7 +38,7 @@ ALIAS: y second
 ! right of the index, plus one that's not equal, if requested.
 :: adjusted-head-slice ( n elt plus-one? seq -- slice )
     n seq elt x '[ x _ = not ] find-from drop seq swap
-    [ plus-one? [ 1 + ] when short head-slice ] when* ;
+    [ plus-one? [ 1 + ] when cramp head-slice ] when* ;
 
 ! : data-rect ( data -- rect )
 !    [ [ first x ] [ last x ] bi ] keep