Renaming require-if to require-when
parent
043578ca1d
commit
9e602d213f
|
@ -96,7 +96,7 @@ PRIVATE>
|
||||||
: require ( vocab -- )
|
: require ( vocab -- )
|
||||||
load-vocab drop ;
|
load-vocab drop ;
|
||||||
|
|
||||||
: require-if ( if then -- )
|
: require-when ( if then -- )
|
||||||
over vocab
|
over vocab
|
||||||
[ nip require ]
|
[ nip require ]
|
||||||
[ swap conditional-requires get [ swap suffix ] change-at ]
|
[ swap conditional-requires get [ swap suffix ] change-at ]
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USE: vocabs.loader
|
USE: vocabs.loader
|
||||||
IN: vocabs.loader.test.m
|
IN: vocabs.loader.test.m
|
||||||
|
|
||||||
"vocabs.loader.test.o" "vocabs.loader.test.n" require-if
|
"vocabs.loader.test.o" "vocabs.loader.test.n" require-when
|
||||||
|
|
Loading…
Reference in New Issue