new compiler handling, better trace into for _loader parts

original commit: 18a5652c46e9319a1f75ba819ef9788786cfc152

collects/mzlib/info.ss

@@ -1,4 +1,14 @@
 
+(let ([elaboration-time-files
+       (list "awk.ss" "compatm.ss" "constan.ss" "defstru.ss" 
+	     "macro.ss" "macrox.ss" "match.ss"
+	     "shared.ss"
+	     "spidey.ss" "synrule.ss" "trace.ss"
+	     "mzlibs.ss" "cores.ss"
+	     "cmdlines.ss" "dates.ss" "strings.ss"
+	     "compats.ss" "files.ss" "threads.ss"
+	     "compiles.ss" "functios.ss" "pconvers.ss" "triggers.ss"
+	     "inflates.ss" "prettys.ss" "zmaths.ss")])
   (lambda (request failure)
     (case request
       [(name) "MzLib"]
@@ -6,14 +16,7 @@
 			   (require-library "refer.ss")
 			   (require-library "mzlibs.ss")
 			   (require-library "constan.ss"))]
-    [(compile-omit-files)
+      [(compile-omit-files) (append elaboration-time-files
-     (list "awk.ss" "compatm.ss" "constan.ss" "defstru.ss" 
+				    (list "refer.ss" "letplsrc.ss" "sfunctor.ss"))]
-	   "macro.ss" "macrox.ss" "match.ss"                   "macroxr.ss" ; goes away after zodiac is fixed
+      [(compile-elaboration-zos) elaboration-time-files]
-	   "letplus.ss" "letplsrc.ss" "refer.ss" "shared.ss"
+      [else (failure)])))
-	   "spidey.ss" "synrule.ss" "trace.ss" "sfunctor.ss"
-	   "mzlibs.ss" "cores.ss"
-	   "cmdlines.ss" "dates.ss" "strings.ss"
-	   "compats.ss" "files.ss" "threads.ss"
-	   "compiles.ss" "functios.ss" "pconvers.ss" "triggers.ss"
-	   "inflates.ss" "prettys.ss" "zmaths.ss")]
-    [else (failure)]))