Use bi instead of dup/swap

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 817285412eca34747b004c0d8687892a780eda45..d5729f218be20b7235c47ad4b48ec1d7df888eaf 100644 (file)
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -59,7 +59,7 @@ IN: help.lint
     ] each ;
 
 : vocab-exists? ( name -- ? )
-    dup vocab swap "all-vocabs" get member? or ;
+    [ vocab ] [ "all-vocabs" get member? ] bi or ;
 
 : check-modules ( element -- )
     \ $vocab-link swap elements [