From 04dc25f87a9809114ef947ae207ea269729deb05 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@terrorist.(none)>
Date: Mon, 11 Feb 2008 06:11:00 -0600
Subject: [PATCH] builder.test: Only extract the vocab names from the result of
 try-everything

---
 extra/builder/test/test.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/builder/test/test.factor b/extra/builder/test/test.factor
index c887c668e6..b77199c7c5 100644
--- a/extra/builder/test/test.factor
+++ b/extra/builder/test/test.factor
@@ -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 ]