core: cramp -> bound (was short)

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

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 6a3192c6d1dc4b0fbe2b78bdf708db314bc048df..92b2824fc1aba04b761604439f164c582de1d1e9 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 + cramp tail-slice ] 2bi ;
+    [ head ] [ 1 + bound tail-slice ] 2bi ;
 
 : find-cut ( string quot -- before after delimiter )
     dupd find