Use bi instead of dup/swap
parent
184de13b57
commit
6c7bd04e14
|
@ -59,7 +59,7 @@ IN: help.lint
|
||||||
] each ;
|
] each ;
|
||||||
|
|
||||||
: vocab-exists? ( name -- ? )
|
: vocab-exists? ( name -- ? )
|
||||||
dup vocab swap "all-vocabs" get member? or ;
|
[ vocab ] [ "all-vocabs" get member? ] bi or ;
|
||||||
|
|
||||||
: check-modules ( element -- )
|
: check-modules ( element -- )
|
||||||
\ $vocab-link swap elements [
|
\ $vocab-link swap elements [
|
||||||
|
|
Loading…
Reference in New Issue