core: Add the shuffler words but without primitives.

[factor.git] / core / alien / strings / strings.factor

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 74fdfb56370214cd2dc0cf39837830b1eca5d324..2a4b3d9ebc88a3be7c3925cfb058778e62b4b36c 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -38,7 +38,7 @@ M: c-ptr string>alien drop ;
     drop [ length ] keep over [
         1 + (byte-array) [
             [
-                [ [ string-nth-fast ] 2keep drop ]
+                [ [ string-nth-fast ] keepd ]
                 [ set-nth-unsafe ] bi*
             ] 2curry each-integer
         ] keep