builder.test: Only extract the vocab names from the result of try-everything

db4
Eduardo Cavazos 2008-02-11 06:11:00 -06:00
parent 0f04e9714e
commit 04dc25f87a
1 changed files with 3 additions and 1 deletions

View File

@ -7,8 +7,10 @@ USING: kernel sequences assocs builder continuations vocabs vocabs.loader
IN: builder.test
: try-everything* ( -- vocabs ) try-everything [ first vocab-link-name ] map ;
: do-load ( -- )
[ try-everything ] "../load-everything-time" log-runtime
[ try-everything* ] "../load-everything-time" log-runtime
dup empty?
[ drop ]
[ "../load-everything-log" log-object ]