adjust some collection-file-path calls to work with binary packages

In a few cases, sources should be preserved in binary mode.

pkgs/drracket-pkgs/drracket/drracket/info.rkt

@@ -13,6 +13,9 @@
 
 (define copy-man-pages '("drracket.1"))
 
+(define binary-keep-files '("private/launcher-mred-bootstrap.rkt"
+                            "private/launcher-mz-bootstrap.rkt"))
+
 ;; color-blind friendly palette from Paul Tol:
 ;; http://www.sron.nl/~pault/
 ;; using his Scheme for Marking Text colors

pkgs/slideshow-pkgs/slideshow-exe/slideshow/info.rkt

@@ -4,3 +4,7 @@
 (define mred-launcher-names (list "Slideshow"))
 (define compile-omit-paths '("initial-ones.rkt" "examples"))
 (define test-omit-paths '("tutorial-show.rkt"))
+
+(define binary-keep-files '("tutorial-show.rkt"
+                            "initial-ones.rkt"
+                            "examples"))

pkgs/xrepl-pkgs/xrepl-lib/xrepl/xrepl.rkt

@@ -1282,9 +1282,7 @@
     (define inp
       (case (object-name (current-input-port))
         [(readline-input)
-         (parameterize ([(dynamic-require
-                          (collection-file-path "pread.rkt" "readline")
-                          'readline-prompt)
+         (parameterize ([(dynamic-require 'readline/pread 'readline-prompt)
                          qtext])
            (read-line))]
         [else (write-bytes qtext) (flush-output) (read-line)]))

racket/collects/compiler/embed.rkt

@@ -1180,7 +1180,8 @@
                                                                                   file
                                                                                   (if (null? (cddr p))
                                                                                       (list "mzlib")
-                                                                                      (cddr p))))))]
+                                                                                      (cddr p))
+                                                                                  #:check-compiled? #f))))]
                                                                      [(and (list? p)
                                                                            (eq? 'module (car p)))
                                                                       sym]

racket/collects/racket/runtime-path.rkt

@@ -157,6 +157,7 @@
                               (not (file-exists? p)))
                          ;; Try ".ss":
                          (define p2 (apply collection-file-path
+                                           #:check-compiled? #f
                                            (path-replace-suffix file #".ss")
                                            coll))
                          (if (file-exists? p2)