gap-buffer: pick pick is 2over

diff --git a/extra/gap-buffer/gap-buffer.factor b/extra/gap-buffer/gap-buffer.factor
index c7178777436be1cd22abc343cbbf935f163f62a7..33503cb4f13c40b245b2f46e1f414cbe822b482d 100644 (file)
--- a/extra/gap-buffer/gap-buffer.factor
+++ b/extra/gap-buffer/gap-buffer.factor
@@ -95,7 +95,7 @@ INSTANCE: gb virtual-sequence
     ] [ 3drop drop ] if ;
 
 : copy-elements ( dst start end seq -- )
-    pick pick > [
+    2over > [
         [ dupd - ] dip swap copy-elements-forward
     ] [
         [ over - ] dip swap copy-elements-back