From d575288c1aee20b38552dfc0396ab294867b65b2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Mar 2021 20:26:38 -0700
Subject: [PATCH] extra: using keepd instead of "2keep drop".

---
 extra/modern/out/out.factor          | 2 +-
 extra/modern/slices/slices.factor    | 4 ++--
 extra/sequences/extras/extras.factor | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index 1eb4634350..054a4d8e45 100644
--- a/extra/modern/out/out.factor
+++ b/extra/modern/out/out.factor
@@ -67,7 +67,7 @@ DEFER: map-literals
 : rewrite-paths ( seq quot: ( obj -- obj' ) -- ) '[ _ rewrite-path ] each ; inline recursive
 
 : rewrite-vocab ( vocab quot: ( obj -- obj' ) -- )
-    [ [ vocab>literals ] dip map-literals ] 2keep drop write-modern-vocab ; inline recursive
+    [ [ vocab>literals ] dip map-literals ] keepd write-modern-vocab ; inline recursive
 
 : rewrite-string-exact ( string -- string' )
     string>literals write-modern-string ;
diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor
index ad14276a06..dca6feb58e 100644
--- a/extra/modern/slices/slices.factor
+++ b/extra/modern/slices/slices.factor
@@ -60,7 +60,7 @@ ERROR: unexpected-end n string ;
     [ to>> ] [ seq>> ] bi ?nth ;
 
 : find-from* ( ... n seq quot: ( ... elt -- ... ? ) -- ... i elt ? )
-    [ find-from ] 2keep drop
+    [ find-from ] keepd
     pick [ drop t ] [ length -rot nip f ] if ; inline
 
 : skip-blank-from ( n string -- n' string )
@@ -224,5 +224,5 @@ ERROR: subseq-expected-but-got-eof n string expected ;
     pick [
         length swap [ - ] dip
     ] [
-        [ nip ] dip [ [ length ] bi@ - ] 2keep drop
+        [ nip ] dip [ [ length ] bi@ - ] keepd
     ] if ; inline
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 929354d138..910954adf3 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -628,10 +628,10 @@ PRIVATE>
     [ dup length ] unless* tail-slice ; inline
 
 : count-head ( seq quot -- n )
-    [ not ] compose [ find drop ] 2keep drop length or ; inline
+    [ not ] compose [ find drop ] keepd length or ; inline
 
 : count-tail ( seq quot -- n )
-    [ not ] compose [ find-last drop ] 2keep drop
+    [ not ] compose [ find-last drop ] keepd
     length swap [ - 1 - ] when* ; inline
 
 :: interleaved-as ( seq glue exemplar -- newseq )
-- 
2.34.1