From da84d1ce21194a920349d08cdcf1fd44849ef8e9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 23 Mar 2013 22:07:08 -0700
Subject: [PATCH] vocabs.loader: use adjoin-all.

---
 core/vocabs/loader/loader.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 47fe95e747..1e663d668c 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -112,7 +112,7 @@ PRIVATE>
     over [ lookup-vocab ] all? [
         require drop
     ] [
-        [ drop [ require-when-vocabs get adjoin ] each ]
+        [ drop require-when-vocabs get adjoin-all ]
         [ 2array require-when-table get push ] 2bi
     ] if ;
 
-- 
2.34.1