/usr/share/racket/collects/setup/setup-go.rkt is in racket-common 6.7-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (module setup-go racket/base
(require "setup-cmdline.rkt"
"option.rkt"
"setup-core.rkt"
compiler/cm)
(module test racket/base)
(define-values (short-name x-flags
x-specific-collections x-specific-packages x-specific-planet-packages
x-archives)
(parse-cmdline (current-command-line-arguments)))
(define (has-x-flag? s)
(define a (assq s x-flags))
(and a (cadr a)))
(parameterize
;; Converting parse-cmdline results into parameter settings:
([current-target-plt-directory-getter
(if (has-x-flag? 'all-users)
(lambda (preferred main-collects-parent-dir choices)
main-collects-parent-dir)
(current-target-plt-directory-getter))]
[trust-existing-zos (or (has-x-flag? 'trust-existing-zos)
(trust-existing-zos))]
[specific-collections x-specific-collections]
[specific-packages x-specific-packages]
[archives x-archives]
[specific-planet-dirs x-specific-planet-packages]
[setup-program-name short-name])
(call-with-flag-params
x-flags
setup-core)))
|