From 1e449c70f64e7c40c0d0c73535b9b4015643cc15 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 5 Jun 2009 17:33:00 -0500
Subject: [PATCH] vocabs.parser: if bootstrap fails to load a vocab in
 interactive use list, don't fep

---
 core/vocabs/parser/parser.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index ca783c13e6..5f393ed65d 100644
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -127,7 +127,10 @@ TUPLE: no-current-vocab ;
     ] [ drop ] if ;
 
 : only-use-vocabs ( vocabs -- )
-    clear-manifest [ vocab ] filter [ use-vocab ] each ;
+    clear-manifest
+    [ vocab ] filter
+    [ vocab source-loaded?>> +done+ eq? ] filter
+    [ use-vocab ] each ;
 
 TUPLE: qualified vocab prefix words ;