From e2ebe78915389fcff6eb54715ee66c3354b900ff Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 21 Jan 2008 20:39:44 -0500
Subject: [PATCH] Faster bootstrap

---
 core/bootstrap/stage2.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/core/bootstrap/stage2.factor b/core/bootstrap/stage2.factor
index f9c738a8d0..d035744cd0 100755
--- a/core/bootstrap/stage2.factor
+++ b/core/bootstrap/stage2.factor
@@ -48,7 +48,11 @@ IN: bootstrap.stage2
 
         "Compiling remaining words..." print flush
 
-        all-words [ compiled? not ] subset recompile-hook get call
+        "bootstrap.compiler" vocab [
+            vocabs [
+                words "compile" "compiler" lookup execute
+            ] each
+        ] when
     ] with-compiler-errors
 
     f error set-global