Fix bootstrap

2008-07-25 19:27:03 -05:00 · 2008-07-25 19:27:03 -05:00 · 1f39689e76
parent 06d9d4db16
commit 1f39689e76
1 changed files with 7 additions and 2 deletions
--- a/core/bootstrap/stage1.factor
+++ b/core/bootstrap/stage1.factor
@ -19,8 +19,13 @@ load-help? off
 [
    [
        ! Rehash hashtables, since bootstrap.image creates them
-        ! using the host image's hashing algorithms
-        [ hashtable? ] instances [ rehash ] each
+        ! using the host image's hashing algorithms. We don't
+        ! use each-object here since the catch stack isn't yet
+        ! set up.
+        begin-scan
+        [ hashtable? ] pusher [ (each-object) ] dip
+        end-scan
+        [ rehash ] each
        boot
    ] %