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

[factor.git] / basis / farkup / farkup.factor

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 57e609836a2565b381a82c44b42f68b07e7c2c54..6a3192c6d1dc4b0fbe2b78bdf708db314bc048df 100644 (file)
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -50,7 +50,7 @@ DEFER: (parse-paragraph)
     parse-paragraph paragraph boa ;
 
 : cut-half-slice ( string i -- before after-slice )
-    [ head ] [ 1 + short tail-slice ] 2bi ;
+    [ head ] [ 1 + cramp tail-slice ] 2bi ;
 
 : find-cut ( string quot -- before after delimiter )
     dupd find