raco {make,decompile}: fix bytecode path calculation

Use `compiler/compilation-path` to take into account PLTCOMPILEDROOTS, etc.

Closes PR 14525

original commit: 5ad11c85e6

pkgs/compiler-pkgs/compiler-lib/compiler/commands/decompile.rkt

@@ -3,6 +3,7 @@
          raco/command-name
          compiler/zo-parse
          compiler/decompile
+         compiler/compilation-path
          racket/pretty
          racket/format)
 
@@ -75,7 +76,7 @@
 (for ([zo-file source-files])
   (let ([zo-file (path->complete-path zo-file)])
     (let-values ([(base name dir?) (split-path zo-file)])
-      (let ([alt-file (build-path base "compiled" (path-add-suffix name #".zo"))])
+      (let ([alt-file (get-compilation-bytecode-file zo-file)])
         (check-files zo-file alt-file)
         (parameterize ([current-load-relative-directory base]
                        [print-graph #t])

pkgs/compiler-pkgs/compiler-lib/compiler/commands/make.rkt

@@ -3,6 +3,7 @@
          raco/command-name
          compiler/cm
          compiler/compiler
+         compiler/compilation-path
          dynext/file
          setup/parallel-build
          setup/path-to-relative
@@ -89,14 +90,10 @@
                            [compile-enforce-module-constants
                             (not (disable-const))])
               (managed-compile-zo file))
-            (let ([dest (append-zo-suffix
-                         (let-values ([(base name dir?) (split-path file)])
-                           (build-path (if (symbol? base) 'same base)
-                                       "compiled" name)))])
             (when (verbose)
               (printf " [~a \"~a\"]\n"
                       (if did-one? "output to" "already up-to-date at")
-                        dest)))))))]
+                      (get-compilation-bytecode-file file)))))))]
   ;; Parallel make:
   [else
    (define path-cache (make-hash))