From 6cd9b95df8e0a3d74e3d3eb68e8788159ef69fad Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 18 Aug 2006 03:52:59 +0000
Subject: [PATCH] compile-all fix

---
 TODO.FACTOR.txt                  | 1 -
 library/compiler/compiler.factor | 3 ++-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 0b4576a810..841a062ff9 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -11,7 +11,6 @@
 
 - declaration to do:
   - bootstrap speedup with compiling recursives
-  - load cocoa before 'recompile' call
 - RT_WORD should refer to XTs not word objects.
 - fix contribs: boids, automata
 - sometimes darcs get fails with the httpd
diff --git a/library/compiler/compiler.factor b/library/compiler/compiler.factor
index 359594d790..74c07086bc 100644
--- a/library/compiler/compiler.factor
+++ b/library/compiler/compiler.factor
@@ -24,7 +24,8 @@ words ;
     dup [ f "no-effect" set-word-prop ] each
     [ try-compile ] each ;
 
-: compile-all ( -- ) vocabs compile-vocabs ;
+: compile-all ( -- )
+    vocabs compile-vocabs changed-words get clear-hash ;
 
 : compile-quot ( quot -- word )
     define-temp "compile" get [ dup compile ] when ;