Use bi instead of dup/swap

2008-12-16 06:12:45 -06:00 · 2008-12-16 06:12:45 -06:00 · 6c7bd04e14
parent 184de13b57
commit 6c7bd04e14
1 changed files with 1 additions and 1 deletions
--- 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 [