vocabs.loader: use adjoin-all.
parent
cd1c6ccda0
commit
da84d1ce21
|
@ -112,7 +112,7 @@ PRIVATE>
|
||||||
over [ lookup-vocab ] all? [
|
over [ lookup-vocab ] all? [
|
||||||
require drop
|
require drop
|
||||||
] [
|
] [
|
||||||
[ drop [ require-when-vocabs get adjoin ] each ]
|
[ drop require-when-vocabs get adjoin-all ]
|
||||||
[ 2array require-when-table get push ] 2bi
|
[ 2array require-when-table get push ] 2bi
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue