cache loaded compiled modules

using a SHA1 hash stored in the marshaled bytecode; this cache
 lowers the cost of sandboxes or other uses of multiple namespaces
 when the code inspector doesn't change; the caching is almost
 transparent, but an eval handler might be called with compiled
 code that cannot be written

original commit: 97ce26b182

collects/compiler/commands/make.rkt

@@ -16,6 +16,8 @@
 (define assume-primitives (make-parameter #t))
 (define worker-count (make-parameter 1))
 
+(define mzc-symbol (string->symbol (short-program+command-name)))
+
 (define source-files
   (command-line
    #:program (short-program+command-name)
@@ -67,9 +69,9 @@
                           (printf "  making ~s\n" (path->string p))))])
         (for ([file source-files])
           (unless (file-exists? file)
-            (error 'mzc "file does not exist: ~a" file))
+            (error mzc-symbol "file does not exist: ~a" file))
           (set! did-one? #f)
-          (let ([name (extract-base-filename/ss file 'mzc)])
+          (let ([name (extract-base-filename/ss file mzc-symbol)])
             (when (verbose)
               (printf "\"~a\":\n" file))
             (parameterize ([compile-context-preservation-enabled

collects/compiler/commands/pack.rkt

@@ -19,6 +19,8 @@
 (define plt-setup-collections (make-parameter null))
 (define plt-include-compiled (make-parameter #f))
 
+(define mzc-symbol (string->symbol (short-program+command-name)))
+
 (define-values (plt-output source-files)
   (command-line
    #:program (short-program+command-name)
@@ -53,7 +55,7 @@
     (begin
       (for ([fd source-files])
         (unless (relative-path? fd)
-          (error 'mzc
+          (error mzc-symbol
                  "file/directory is not relative to the current directory: \"~a\""
                  fd)))
       (pack-plt plt-output

collects/compiler/zo-marshal.rkt

@@ -127,6 +127,8 @@
   (write-bytes (bytes (bytes-length version-bs)) outp)
   (write-bytes version-bs outp)
 
+  ; Write empty hash code
+  (write-bytes (make-bytes 20 0) outp)
   
   ; Write the symbol table information (size, offsets)
   (define symtabsize (add1 (vector-length symbol-table)))

collects/compiler/zo-parse.rkt

@@ -1012,6 +1012,9 @@
     
     (define version (read-bytes (min 63 (read-byte port)) port))
 
+    ;; Skip module hash code
+    (read-bytes 20 port)
+    
     (define symtabsize (read-simple-number port))
     
     (define all-short (read-byte port))