Use proper raco command name in make and pack.

Fixes PR 11719.

original commit: 0f14c6aa67

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