remove non-primitive-related uses of tuck from basis

[factor.git] / basis / suffix-arrays / suffix-arrays.factor

diff --git a/basis/suffix-arrays/suffix-arrays.factor b/basis/suffix-arrays/suffix-arrays.factor
index 931cb36ea949b8c394164e3e85d9bbdaa34b09bb..f486adcb32e27f882289eb4a6b4b567c41706126 100755 (executable)
--- a/basis/suffix-arrays/suffix-arrays.factor
+++ b/basis/suffix-arrays/suffix-arrays.factor
@@ -22,8 +22,7 @@ IN: suffix-arrays
 
 : <funky-slice> ( from/f to/f seq -- slice )
     [
-        tuck
-        [ drop 0 or ] [ length or ] 2bi*
+        [ drop 0 or ] [ length or ] bi-curry bi*
         [ min ] keep
     ] keep <slice> ; inline