extra: using keepd instead of "2keep drop".

[factor.git] / extra / modern / out / out.factor

diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index 1eb4634350e39f976c60dd709f003b12ccdd986a..054a4d8e4543312e8f14f3c9240d00abb62282e0 100644 (file)
--- 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 ;