Compiler and module system fix

TODO.FACTOR.txt

@@ -105,6 +105,7 @@
 
 + misc:
 
+- loading the image should not exhaust nursery space
 - compiler tests are not as reliable now
 - problem if major gc happens during relocation
   - in fact relocation should not cons at all

library/compiler/generator/xt.factor

@@ -83,8 +83,7 @@ SYMBOL: label-table
     {
         { [ dup compiled-xts get hash-member? ] [ drop t ] }
         { [ dup changed-words get hash-member? ] [ drop f ] }
-        { [ dup compiled? ] [ drop t ] }
+        { [ t ] [ compiled? ] }
-        { [ t ] [ drop f ] }
     } cond ;
 
 : with-compiler ( quot -- )

library/modules.factor

@@ -28,8 +28,10 @@ H{ } clone modules set-global
 : module modules get hash ;
 
 : load-module ( name -- )
+    [
         "Loading module " write dup write "..." print
-    [ dup module-def run-resource ] assert-depth drop ;
+        [ dup module-def run-resource ] assert-depth drop
+    ] no-parse-hook ;
 
 : (require) ( name -- )
     dup module [ drop ] [ load-module ] if ;

library/test/benchmark/empty-loop.factor

@@ -4,7 +4,6 @@ USING: compiler kernel math math-internals sequences test ;
 : empty-loop-0 ( n -- )
     dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;
 
-
 : empty-loop-1 ( n -- )
     [ ] times ;