33260
((3) 0 () 75 ((q lib "compiler/zo-structs.rkt") (q lib "compiler/compiler.rkt") (q lib "setup/option-sig.rkt") (q lib "setup/dirs.rkt") (q 52485 . 6) (q 55288 . 9) (q lib "launcher/launcher.rkt") (q 54607 . 9) (q 57506 . 7) (q 57298 . 6) (q 48964 . 5) (q lib "compiler/cm.rkt") (q 51168 . 6) (q lib "compiler/faslable-correlated.rkt") (q 57898 . 6) (q lib "setup/unpack.rkt") (q 51926 . 4) (q 49321 . 25) (q lib "raco/testing.rkt") (q 52285 . 6) (q 57759 . 5) (q 49139 . 5) (q 54384 . 7) (q 58080 . 17) (q lib "setup/getinfo.rkt") (q 41901 . 8) (q 48881 . 4) (q 50313 . 6) (q 55849 . 6) (q lib "setup/xref.rkt") (q lib "setup/cross-system.rkt") (q 53924 . 6) (q 52744 . 24) (q lib "compiler/sig.rkt") (q 54106 . 8) (q 51386 . 6) (q lib "setup/plt-single-installer.rkt") (q lib "setup/pack.rkt") (q 57098 . 7) (q 56819 . 8) (q 54926 . 6) (q 55597 . 8) (q 55104 . 6) (q 56059 . 7) (q 53773 . 6) (q 56290 . 7) (q 50834 . 5) (q 56674 . 5) (q 56533 . 5) (q 52194 . 4) (q 50610 . 6) (q 52651 . 4) (q 51602 . 5) (q 51785 . 4) (q lib "raco/command-name.rkt") (q 50507 . 4) (q lib "compiler/compilation-path.rkt") (q lib "compiler/embed.rkt") (q lib "setup/collects.rkt") (q 51007 . 5) (q lib "compiler/bundle-dist.rkt") (q lib "setup/path-to-relative.rkt") (q lib "compiler/option.rkt") (q lib "setup/matching-platform.rkt") (q lib "setup/main-doc.rkt") (q lib "compiler/zo-marshal.rkt") (q lib "setup/collection-search.rkt") (q lib "setup/collection-name.rkt") (q lib "compiler/module-suffix.rkt") (q lib "setup/parallel-build.rkt") (q lib "compiler/exe-dylib-path.rkt") (q lib "compiler/cm-accomplice.rkt") (q lib "setup/main-collects.rkt") (q lib "scribblings/main/contents.rkt") (q 52065 . 4)) () (h ! (equal) ((c form c (c (? . 33) q compiler^)) q (11826 . 2)) ((c sig-val c (c (? . 2) q setup-option^ archives)) q (35760 . 4)) ((c def c (c (? . 0) q struct:varref)) c (? . 39)) ((c def c (c (? . 1) q current-compiler-dynamic-require-wrapper)) q (11362 . 5)) ((c def c (c (? . 0) q struct:inline-variant)) c (? . 4)) ((c def c (c (? . 1) q compile-directory-zos)) q (9659 . 18)) ((c sig-val c (c (? . 2) q setup-option^ setup-compiled-file-paths)) q (32973 . 5)) ((c def c (c (? . 0) q localref)) c (? . 5)) ((c def c (c (? . 3) q get-include-search-dirs)) q (39096 . 2)) ((c def c (c (? . 6) q racket-launcher-is-directory?)) q (22771 . 2)) ((c def c (c (? . 3) q get-main-language-family)) q (40216 . 2)) ((c def c (c (? . 24) q directory-record-path)) c (? . 25)) ((c def c (c (? . 11) q install-module-hashes!)) q (4066 . 5)) ((c def c (c (? . 3) q find-pkgs-dir)) q (38019 . 2)) ((c def c (c (? . 3) q find-user-doc-dir)) q (38269 . 2)) ((q def ((lib "launcher/launcher-unit.rkt") launcher@)) q (26592 . 2)) ((c def c (c (? . 0) q make-inline-variant)) c (? . 4)) ((c def c (c (? . 0) q struct:localref)) c (? . 5)) ((c def c (c (? . 0) q with-immed-mark-key)) c (? . 8)) ((c def c (c (? . 37) q mztar)) q (64763 . 11)) ((c def c (c (? . 0) q application-rands)) c (? . 28)) ((c def c (c (? . 66) q collection-search)) q (44830 . 13)) ((q def ((lib "compiler/xform.rkt") xform)) q (67476 . 11)) ((c def c (c (? . 71) q register-external-module)) q (6201 . 5)) ((c sig-val c (c (? . 2) q setup-option^ parallel-workers)) q (34714 . 4)) ((c def c (c (? . 29) q get-rendered-doc-directories)) q (47586 . 5)) ((c def c (c (? . 30) q cross-system-type)) q (46349 . 6)) ((c def c (c (? . 0) q struct:assign)) c (? . 38)) ((c sig-val c (c (? . 2) q setup-option^ clean)) q (33445 . 4)) ((c def c (c (? . 0) q make-apply-values)) c (? . 9)) ((c def c (c (? . 0) q toplevel-pos)) c (? . 41)) ((c def c (c (? . 13) q faslable-correlated-linklet)) c (? . 14)) ((c def c (c (? . 0) q def-values)) c (? . 19)) ((c def c (c (? . 0) q beg0)) c (? . 47)) ((c def c (c (? . 64) q path->main-doc-relative)) q (43283 . 4)) ((c def c (c (? . 3) q get-cross-lib-extra-search-dirs)) q (38623 . 2)) ((c def c (c (? . 0) q case-lam-name)) c (? . 31)) ((c def c (c (? . 0) q make-install-value)) c (? . 7)) ((c def c (c (? . 3) q find-lib-dir)) q (38422 . 2)) ((c def c (c (? . 0) q struct:primval)) c (? . 20)) ((c def c (c (? . 0) q make-seq)) c (? . 48)) ((c def c (c (? . 60) q bundle-directory)) q (27764 . 5)) ((c def c (c (? . 3) q find-console-bin-dir)) q (39153 . 2)) ((c def c (c (? . 6) q gracket-launcher-is-directory?)) q (22714 . 2)) ((c def c (c (? . 0) q struct:linkl-bundle)) c (? . 21)) ((c def c (c (? . 0) q install-value-rhs)) c (? . 7)) ((c form c (c (? . 2) q setup-option^)) q (32832 . 2)) ((c sig-val c (c (? . 2) q setup-option^ make-foreign-lib)) q (33896 . 4)) ((c def c (c (? . 0) q with-immed-mark-body)) c (? . 8)) ((c def c (c (? . 6) q racket-launcher-add-suffix)) q (23049 . 3)) ((c def c (c (? . 0) q make-linkl-directory)) c (? . 10)) ((c sig-val c (c (? . 2) q setup-option^ avoid-main-installation)) q (34242 . 4)) ((c def c (c (? . 0) q install-value?)) c (? . 7)) ((c def c (c (? . 18) q test-log-enabled?)) q (68185 . 5)) ((c sig-val c (c (? . 2) q setup-option^ make-verbose)) q (33261 . 4)) ((c def c (c (? . 58) q path->module-path)) q (42735 . 5)) ((c def c (c (? . 0) q linkl-max-let-depth)) c (? . 17)) ((c def c (c (? . 0) q apply-values-args-expr)) c (? . 9)) ((c def c (c (? . 70) q find-matching-library-path)) q (26618 . 5)) ((c def c (c (? . 3) q get-main-collects-search-dirs)) q (37697 . 2)) ((c def c (c (? . 15) q fold-plt-archive)) q (66106 . 29)) ((c def c (c (? . 0) q let-void-boxes?)) c (? . 22)) ((c def c (c (? . 68) q get-module-suffixes)) q (10575 . 8)) ((q def ((lib "setup/setup-unit.rkt") setup@)) q (32779 . 2)) ((c sig-val c (c (? . 2) q setup-option^ verbose)) q (33183 . 4)) ((c def c (c (? . 0) q struct:linkl-directory)) c (? . 10)) ((c def c (c (? . 6) q racket-launcher-put-file-extension+style+filters)) q (23317 . 5)) ((c def c (c (? . 0) q struct-type-shape-field-count)) c (? . 50)) ((c def c (c (? . 0) q struct:accessor-shape)) c (? . 12)) ((c def c (c (? . 6) q make-racket-launcher)) q (19474 . 5)) ((c def c (c (? . 3) q get-share-extra-search-dirs)) q (38938 . 2)) ((c sig-val c (c (? . 2) q setup-option^ setup-program-name)) q (32870 . 4)) ((c def c (c (? . 11) q manager-skip-file-handler)) q (1897 . 5)) ((c def c (c (? . 0) q install-value)) c (? . 7)) ((q def ((lib "setup/language-family.rkt") get-language-families)) q (28082 . 5)) ((c def c (c (? . 0) q struct-type-property-shape?)) c (? . 52)) ((c def c (c (? . 0) q function-shape?)) c (? . 27)) ((c def c (c (? . 11) q file-stamp-in-paths)) q (2427 . 5)) ((c def c (c (? . 0) q accessor-shape?)) c (? . 12)) ((c def c (c (? . 13) q faslable-correlated-linklet-expr)) c (? . 14)) ((c def c (c (? . 0) q property-accessor-shape?)) c (? . 16)) ((c def c (c (? . 15) q unpack)) q (65152 . 20)) ((c def c (c (? . 0) q make-property-accessor-shape)) c (? . 16)) ((c def c (c (? . 0) q linkl?)) c (? . 17)) ((c def c (c (? . 0) q linkl-import-shapess)) c (? . 17)) ((c def c (c (? . 3) q find-apps-dir)) q (39603 . 2)) ((c def c (c (? . 13) q faslable-correlated-column)) c (? . 23)) ((c def c (c (? . 1) q compile-zos)) q (8508 . 11)) ((c def c (c (? . 0) q linkl-need-instance-access?)) c (? . 17)) ((c def c (c (? . 18) q test-log!)) q (67889 . 3)) ((c def c (c (? . 3) q find-config-tethered-gui-bin-dir)) q (40735 . 2)) ((c def c (c (? . 0) q struct:expr)) c (? . 51)) ((c def c (c (? . 3) q get-cross-lib-search-dirs)) q (38564 . 2)) ((c def c (c (? . 3) q find-user-collects-dir)) q (37593 . 2)) ((q def ((lib "compiler/embed-unit.rkt") compiler:embed@)) q (18526 . 2)) ((c def c (c (? . 0) q def-values-rhs)) c (? . 19)) ((c def c (c (? . 0) q primval-id)) c (? . 20)) ((c def c (c (? . 0) q branch-else)) c (? . 43)) ((c def c (c (? . 3) q find-links-file)) q (37811 . 2)) ((c def c (c (? . 3) q find-dll-dir)) q (38688 . 2)) ((c def c (c (? . 0) q linkl-bundle)) c (? . 21)) ((c def c (c (? . 18) q current-test-invocation-directory)) q (68301 . 5)) ((c def c (c (? . 0) q constructor-shape)) c (? . 46)) ((c def c (c (? . 0) q let-rec-body)) c (? . 40)) ((c def c (c (? . 0) q accessor-shape-authentic?)) c (? . 12)) ((c def c (c (? . 0) q struct:closure)) c (? . 44)) ((c def c (c (? . 0) q make-boxenv)) c (? . 42)) ((c def c (c (? . 0) q zo)) c (? . 26)) ((c def c (c (? . 0) q let-one-unused?)) c (? . 34)) ((c def c (c (? . 0) q linkl-name)) c (? . 17)) ((c def c (c (? . 0) q install-value-pos)) c (? . 7)) ((c def c (c (? . 0) q let-void-count)) c (? . 22)) ((c def c (c (? . 13) q faslable-correlated-e)) c (? . 23)) ((c def c (c (? . 24) q directory-record?)) c (? . 25)) ((c def c (c (? . 1) q compile-collection-zos)) q (8930 . 14)) ((c def c (c (? . 0) q zo?)) c (? . 26)) ((c def c (c (? . 13) q faslable-correlated?)) c (? . 23)) ((c def c (c (? . 65) q zo-marshal)) q (48789 . 3)) ((c def c (c (? . 0) q make-function-shape)) c (? . 27)) ((c def c (c (? . 0) q make-struct-shape)) c (? . 55)) ((c def c (c (? . 0) q lam-rest?)) c (? . 32)) ((c def c (c (? . 0) q application)) c (? . 28)) ((c def c (c (? . 13) q faslable-correlated)) c (? . 23)) ((c def c (c (? . 29) q doc-state?)) q (47890 . 3)) ((c def c (c (? . 6) q available-racket-variants)) q (26099 . 2)) ((c def c (c (? . 0) q make-zo)) c (? . 26)) ((c def c (c (? . 30) q cross-system-library-subpath)) q (46652 . 3)) ((c def c (c (? . 18) q test-report)) q (67951 . 7)) ((c def c (c (? . 0) q case-lam?)) c (? . 31)) ((c def c (c (? . 0) q lam-name)) c (? . 32)) ((c def c (c (? . 13) q faslable-correlated-span)) c (? . 23)) ((c def c (c (? . 3) q get-base-documentation-packages)) q (40266 . 2)) ((c def c (c (? . 11) q make-caching-managed-compile-zo)) q (1180 . 8)) ((c def c (c (? . 36) q install-planet-package)) q (36898 . 8)) ((c def c (c (? . 6) q build-aux-from-path)) q (25706 . 3)) ((c def c (c (? . 6) q make-gracket-program-launcher)) q (19650 . 7)) ((c form c (c (? . 33) q compiler:option^)) q (11860 . 2)) ((c def c (c (? . 0) q linkl-exports)) c (? . 17)) ((q def ((lib "setup/materialize-user-docs.rkt") materialize-user-docs)) q (47946 . 8)) ((c def c (c (? . 0) q make-mutator-shape)) c (? . 35)) ((q def ((lib "compiler/compiler-unit.rkt") compiler@)) q (11901 . 2)) ((q def ((lib "compiler/zo-parse.rkt") zo-parse)) q (48545 . 3)) ((c def c (c (? . 73) q make-default-doc-properties)) q (30149 . 9)) ((c def c (c (? . 0) q with-cont-mark)) c (? . 45)) ((c def c (c (? . 0) q make-with-immed-mark)) c (? . 8)) ((c def c (c (? . 0) q localref-unbox?)) c (? . 5)) ((c def c (c (? . 6) q mred-launcher-add-suffix)) q (23895 . 3)) ((c def c (c (? . 6) q mred-launcher-is-directory?)) q (23778 . 2)) ((c def c (c (? . 72) q main-collects-relative->path)) q (43098 . 5)) ((c def c (c (? . 56) q get-compilation-bytecode-file)) q (7910 . 12)) ((c def c (c (? . 0) q let-one-body)) c (? . 34)) ((c def c (c (? . 13) q faslable-correlated-line)) c (? . 23)) ((c def c (c (? . 0) q mutator-shape-field-count)) c (? . 35)) ((c def c (c (? . 36) q clean-planet-package)) q (37261 . 7)) ((c def c (c (? . 37) q pack-plt)) q (62287 . 30)) ((c def c (c (? . 11) q get-file-sha1)) q (2561 . 3)) ((c def c (c (? . 6) q make-racket-program-launcher)) q (19894 . 7)) ((c def c (c (? . 0) q linkl-directory?)) c (? . 10)) ((c def c (c (? . 11) q compile-lock->parallel-lock-client)) q (3625 . 8)) ((c def c (c (? . 0) q assign?)) c (? . 38)) ((c def c (c (? . 0) q with-immed-mark?)) c (? . 8)) ((c def c (c (? . 0) q make-property-predicate-shape)) c (? . 53)) ((c def c (c (? . 0) q localref?)) c (? . 5)) ((c def c (c (? . 3) q find-user-man-dir)) q (39742 . 2)) ((c def c (c (? . 0) q linkl-directory-table)) c (? . 10)) ((c def c (c (? . 0) q varref-toplevel)) c (? . 39)) ((c def c (c (? . 61) q make-path->relative-string)) q (44422 . 6)) ((c def c (c (? . 0) q inline-variant-inline)) c (? . 4)) ((c def c (c (? . 0) q make-let-rec)) c (? . 40)) ((c def c (c (? . 24) q directory-record-maj)) c (? . 25)) ((c def c (c (? . 0) q make-toplevel)) c (? . 41)) ((c def c (c (? . 0) q boxenv-pos)) c (? . 42)) ((c def c (c (? . 0) q branch)) c (? . 43)) ((c def c (c (? . 0) q make-closure)) c (? . 44)) ((c def c (c (? . 0) q varref-constant?)) c (? . 39)) ((c def c (c (? . 13) q make-faslable-correlated-linklet)) c (? . 14)) ((c def c (c (? . 3) q get-doc-extra-search-dirs)) q (38363 . 2)) ((c def c (c (? . 0) q varref)) c (? . 39)) ((c def c (c (? . 0) q toplevel-const?)) c (? . 41)) ((c def c (c (? . 3) q get-doc-search-dirs)) q (38310 . 2)) ((c def c (c (? . 0) q predicate-shape)) c (? . 59)) ((c def c (c (? . 0) q varref?)) c (? . 39)) ((c def c (c (? . 0) q struct:with-cont-mark)) c (? . 45)) ((c def c (c (? . 0) q lam-closure-map)) c (? . 32)) ((c sig-val c (c (? . 2) q setup-option^ current-target-plt-directory-getter)) q (36136 . 9)) ((q def ((lib "compiler/compile-file.rkt") compile-file)) q (6410 . 8)) ((c def c (c (? . 3) q get-pkgs-search-dirs)) q (38167 . 2)) ((c def c (c (? . 0) q struct:let-void)) c (? . 22)) ((c def c (c (? . 0) q localref-other-clears?)) c (? . 5)) ((c def c (c (? . 0) q let-void)) c (? . 22)) ((c def c (c (? . 0) q make-constructor-shape)) c (? . 46)) ((c def c (c (? . 0) q form)) c (? . 49)) ((c def c (c (? . 0) q closure-code)) c (? . 44)) ((c def c (c (? . 0) q beg0-seq)) c (? . 47)) ((q def ((lib "raco/all-tools.rkt") all-tools)) q (68698 . 3)) ((c def c (c (? . 0) q struct:struct-other-shape)) c (? . 74)) ((c def c (c (? . 0) q with-cont-mark-body)) c (? . 45)) ((c def c (c (? . 0) q case-lam-clauses)) c (? . 31)) ((c def c (c (? . 13) q faslable-correlated-props)) c (? . 23)) ((c def c (c (? . 0) q property-accessor-shape)) c (? . 16)) ((c def c (c (? . 6) q gracket-launcher-put-file-extension+style+filters)) q (23139 . 5)) ((c def c (c (? . 29) q doc-state-changed?)) q (47805 . 3)) ((c def c (c (? . 3) q find-user-gui-bin-dir)) q (39310 . 2)) ((c def c (c (? . 0) q seq)) c (? . 48)) ((c def c (c (? . 0) q apply-values-proc)) c (? . 9)) ((c def c (c (? . 0) q struct:constructor-shape)) c (? . 46)) ((c def c (c (? . 0) q form?)) c (? . 49)) ((c def c (c (? . 0) q struct:mutator-shape)) c (? . 35)) ((c def c (c (? . 24) q directory-record-min)) c (? . 25)) ((c def c (c (? . 0) q struct:with-immed-mark)) c (? . 8)) ((c def c (c (? . 0) q mutator-shape?)) c (? . 35)) ((c def c (c (? . 6) q mzscheme-launcher-add-suffix)) q (24579 . 3)) ((c def c (c (? . 0) q linkl-source-names)) c (? . 17)) ((c def c (c (? . 0) q lam-param-types)) c (? . 32)) ((c def c (c (? . 11) q trust-existing-zos)) q (1074 . 4)) ((c def c (c (? . 11) q managed-compiled-context-key)) q (863 . 2)) ((c def c (c (? . 0) q let-void-body)) c (? . 22)) ((c def c (c (? . 0) q let-rec)) c (? . 40)) ((c def c (c (? . 0) q make-accessor-shape)) c (? . 12)) ((c def c (c (? . 0) q struct:boxenv)) c (? . 42)) ((c def c (c (? . 0) q linkl)) c (? . 17)) ((c def c (c (? . 0) q assign-rhs)) c (? . 38)) ((c def c (c (? . 0) q struct-type-shape)) c (? . 50)) ((c def c (c (? . 0) q seq-forms)) c (? . 48)) ((c def c (c (? . 0) q function-shape)) c (? . 27)) ((c def c (c (? . 0) q struct:application)) c (? . 28)) ((c def c (c (? . 0) q struct:property-accessor-shape)) c (? . 16)) ((c def c (c (? . 24) q get-info/full)) q (41192 . 10)) ((c def c (c (? . 6) q installed-executable-path->desktop-path)) q (24850 . 8)) ((c def c (c (? . 0) q struct:seq)) c (? . 48)) ((c def c (c (? . 0) q toplevel)) c (? . 41)) ((c def c (c (? . 3) q find-user-console-bin-dir)) q (39261 . 2)) ((c def c (c (? . 11) q with-compile-output)) q (2710 . 4)) ((q form ((lib "compiler/embed-sig.rkt") compiler:embed^)) q (18486 . 2)) ((c sig-val c (c (? . 2) q setup-option^ make-launchers)) q (33804 . 4)) ((c def c (c (? . 0) q struct:install-value)) c (? . 7)) ((c def c (c (? . 63) q platform-spec?)) q (45549 . 3)) ((c def c (c (? . 3) q find-addon-tethered-apps-dir)) q (40599 . 2)) ((q form ((lib "launcher/launcher-sig.rkt") launcher^)) q (26558 . 2)) ((c def c (c (? . 0) q expr)) c (? . 51)) ((c def c (c (? . 6) q mzscheme-launcher-put-file-extension+style+filters)) q (24671 . 5)) ((c def c (c (? . 0) q struct:toplevel)) c (? . 41)) ((c def c (c (? . 0) q install-value-body)) c (? . 7)) ((c def c (c (? . 0) q toplevel-ready?)) c (? . 41)) ((c def c (c (? . 0) q closure?)) c (? . 44)) ((c def c (c (? . 0) q boxenv-body)) c (? . 42)) ((c def c (c (? . 6) q current-launcher-variant)) q (25916 . 4)) ((c def c (c (? . 0) q primval?)) c (? . 20)) ((c def c (c (? . 3) q get-console-bin-search-dirs)) q (39355 . 2)) ((q def ((lib "setup/option-unit.rkt") setup:option@)) q (32802 . 2)) ((c def c (c (? . 0) q make-struct-type-property-shape)) c (? . 52)) ((c def c (c (? . 24) q directory-record)) c (? . 25)) ((c def c (c (? . 0) q linkl-bundle-table)) c (? . 21)) ((c def c (c (? . 3) q find-cross-dll-dir)) q (38736 . 2)) ((c def c (c (? . 69) q parallel-compile)) q (5086 . 19)) ((c def c (c (? . 6) q gracket-launcher-add-suffix)) q (22958 . 3)) ((c def c (c (? . 0) q expr?)) c (? . 51)) ((c def c (c (? . 0) q let-one-rhs)) c (? . 34)) ((c def c (c (? . 3) q find-gui-bin-dir)) q (39209 . 2)) ((c def c (c (? . 62) q compile-subcollections)) q (11718 . 4)) ((c def c (c (? . 0) q make-varref)) c (? . 39)) ((c def c (c (? . 54) q short-program+command-name)) q (68600 . 2)) ((c def c (c (? . 0) q struct:let-rec)) c (? . 40)) ((c def c (c (? . 0) q linkl-directory)) c (? . 10)) ((c def c (c (? . 3) q get-share-search-dirs)) q (38883 . 2)) ((c def c (c (? . 0) q property-predicate-shape)) c (? . 53)) ((c def c (c (? . 0) q with-cont-mark-val)) c (? . 45)) ((c def c (c (? . 3) q get-absolute-installation?)) q (40408 . 2)) ((c def c (c (? . 3) q find-user-apps-dir)) q (39652 . 2)) ((c def c (c (? . 11) q manager-compile-notify-handler)) q (1597 . 4)) ((c sig-val c (c (? . 2) q setup-option^ compiler-verbose)) q (33349 . 4)) ((c def c (c (? . 54) q program+command-name)) q (68652 . 2)) ((c def c (c (? . 0) q lam-max-let-depth)) c (? . 32)) ((c def c (c (? . 0) q application-rator)) c (? . 28)) ((c def c (c (? . 37) q pack-collections-plt)) q (60651 . 19)) ((c def c (c (? . 6) q make-mzscheme-launcher)) q (21276 . 5)) ((c def c (c (? . 0) q varref-from-unsafe?)) c (? . 39)) ((c def c (c (? . 0) q function-shape-preserves-marks?)) c (? . 27)) ((c def c (c (? . 0) q struct-type-property-shape)) c (? . 52)) ((c def c (c (? . 3) q get-console-bin-extra-search-dirs)) q (39416 . 2)) ((c def c (c (? . 0) q linkl-body)) c (? . 17)) ((c def c (c (? . 3) q get-links-search-files)) q (37963 . 2)) ((c def c (c (? . 0) q struct:struct-shape)) c (? . 55)) ((c def c (c (? . 0) q struct:lam)) c (? . 32)) ((c def c (c (? . 0) q let-void?)) c (? . 22)) ((c def c (c (? . 0) q make-assign)) c (? . 38)) ((c sig-val c (c (? . 2) q setup-option^ specific-planet-dirs)) q (35180 . 11)) ((c def c (c (? . 0) q make-def-values)) c (? . 19)) ((c def c (c (? . 6) q install-mzscheme-program-launcher)) q (21701 . 7)) ((c def c (c (? . 0) q varref-dummy)) c (? . 39)) ((c def c (c (? . 0) q struct:apply-values)) c (? . 9)) ((c sig-val c (c (? . 2) q setup-option^ make-planet)) q (34156 . 4)) ((c def c (c (? . 0) q lam-body)) c (? . 32)) ((c def c (c (? . 0) q with-immed-mark)) c (? . 8)) ((c def c (c (? . 6) q mzscheme-launcher-is-directory?)) q (24454 . 2)) ((c def c (c (? . 6) q gracket-launcher-up-to-date?)) q (25429 . 4)) ((c sig-val c (c (? . 2) q setup-option^ pause-on-errors)) q (34620 . 4)) ((c def c (c (? . 0) q make-linkl)) c (? . 17)) ((c def c (c (? . 24) q find-relevant-directory-records)) q (41712 . 5)) ((c sig-val c (c (? . 2) q setup-option^ make-only)) q (35678 . 4)) ((c def c (c (? . 0) q struct:case-lam)) c (? . 31)) ((c sig-val c (c (? . 2) q setup-option^ current-target-directory-getter)) q (35983 . 4)) ((c def c (c (? . 0) q branch?)) c (? . 43)) ((c def c (c (? . 0) q lam-closure-types)) c (? . 32)) ((c def c (c (? . 3) q get-doc-open-url)) q (39999 . 2)) ((c def c (c (? . 13) q faslable-correlated-position)) c (? . 23)) ((c def c (c (? . 6) q mred-launcher-put-file-extension+style+filters)) q (23983 . 5)) ((c def c (c (? . 11) q manager-trace-handler)) q (1754 . 4)) ((c def c (c (? . 36) q run-single-installer)) q (36438 . 9)) ((c def c (c (? . 13) q struct:faslable-correlated-linklet)) c (? . 14)) ((c def c (c (? . 3) q find-user-share-dir)) q (38840 . 2)) ((c def c (c (? . 13) q faslable-correlated-linklet-name)) c (? . 14)) ((c def c (c (? . 6) q installed-desktop-path->icon-path)) q (25151 . 8)) ((c def c (c (? . 56) q get-compilation-dir+name)) q (6749 . 12)) ((c sig-val c (c (? . 2) q setup-option^ call-install)) q (34434 . 4)) ((c def c (c (? . 36) q reindex-user-documentation)) q (37211 . 2)) ((c def c (c (? . 0) q let-one?)) c (? . 34)) ((c def c (c (? . 13) q make-faslable-correlated)) c (? . 23)) ((c def c (c (? . 57) q embedding-executable-put-file-extension+style+filters)) q (18111 . 6)) ((c def c (c (? . 0) q make-branch)) c (? . 43)) ((c def c (c (? . 57) q create-embedding-executable)) q (12094 . 59)) ((c def c (c (? . 57) q embedding-executable-is-directory?)) q (17927 . 3)) ((c def c (c (? . 0) q closure-gen-id)) c (? . 44)) ((c def c (c (? . 0) q make-form)) c (? . 49)) ((c def c (c (? . 3) q find-user-pkgs-dir)) q (38068 . 3)) ((q def ((lib "setup/setup.rkt") setup)) q (30606 . 44)) ((c def c (c (? . 3) q get-build-stamp)) q (40163 . 2)) ((c def c (c (? . 0) q constructor-shape-arity)) c (? . 46)) ((c def c (c (? . 0) q struct:struct-type-property-shape)) c (? . 52)) ((c def c (c (? . 3) q find-config-tethered-apps-dir)) q (40803 . 2)) ((c def c (c (? . 0) q toplevel?)) c (? . 41)) ((c def c (c (? . 11) q make-compilation-context-error-display-handler)) q (908 . 4)) ((c def c (c (? . 3) q get-info-domain-root)) q (39895 . 2)) ((c def c (c (? . 6) q available-mzscheme-variants)) q (26495 . 2)) ((c def c (c (? . 0) q inline-variant?)) c (? . 4)) ((c def c (c (? . 13) q struct:faslable-correlated)) c (? . 23)) ((c def c (c (? . 0) q property-predicate-shape?)) c (? . 53)) ((c def c (c (? . 0) q struct:property-predicate-shape)) c (? . 53)) ((c def c (c (? . 0) q apply-values?)) c (? . 9)) ((c def c (c (? . 6) q install-racket-program-launcher)) q (20383 . 7)) ((c def c (c (? . 29) q get-current-doc-state)) q (47755 . 2)) ((c def c (c (? . 58) q path->collects-relative)) q (42185 . 8)) ((c def c (c (? . 6) q make-mred-program-launcher)) q (20802 . 7)) ((c def c (c (? . 0) q install-value-boxes?)) c (? . 7)) ((c def c (c (? . 0) q struct:linkl)) c (? . 17)) ((c def c (c (? . 3) q find-user-lib-dir)) q (38470 . 2)) ((c def c (c (? . 0) q predicate-shape-authentic?)) c (? . 59)) ((c def c (c (? . 0) q let-one-type)) c (? . 34)) ((c def c (c (? . 0) q make-let-void)) c (? . 22)) ((q def ((lib "setup/link.rkt") links)) q (59426 . 28)) ((c sig-val c (c (? . 2) q setup-option^ archive-implies-reindex)) q (35873 . 4)) ((c sig-val c (c (? . 2) q setup-option^ force-unpacks)) q (34931 . 4)) ((c def c (c (? . 6) q install-mred-program-launcher)) q (21037 . 7)) ((c def c (c (? . 60) q bundle-put-file-extension+style+filters)) q (27914 . 5)) ((c def c (c (? . 6) q mzscheme-launcher-is-actually-directory?)) q (24512 . 2)) ((c def c (c (? . 0) q lam?)) c (? . 32)) ((c def c (c (? . 0) q install-value-count)) c (? . 7)) ((c def c (c (? . 0) q assign-id)) c (? . 38)) ((c def c (c (? . 0) q struct-shape?)) c (? . 55)) ((c def c (c (? . 6) q racket-program-launcher-path)) q (22335 . 9)) ((c def c (c (? . 37) q std-filter)) q (64700 . 3)) ((c def c (c (? . 11) q parallel-lock-client)) q (2852 . 15)) ((c def c (c (? . 3) q find-config-tethered-console-bin-dir)) q (40663 . 2)) ((c def c (c (? . 61) q path->relative-string/setup)) q (44017 . 8)) ((c def c (c (? . 3) q find-addon-tethered-gui-bin-dir)) q (40532 . 2)) ((c def c (c (? . 0) q struct:def-values)) c (? . 19)) ((c def c (c (? . 62) q verbose)) q (11640 . 4)) ((c def c (c (? . 0) q make-lam)) c (? . 32)) ((c def c (c (? . 0) q with-cont-mark?)) c (? . 45)) ((c def c (c (? . 3) q get-installation-name)) q (40053 . 3)) ((c def c (c (? . 3) q find-user-include-dir)) q (39051 . 2)) ((c def c (c (? . 6) q racket-launcher-is-actually-directory?)) q (22893 . 2)) ((c sig-val c (c (? . 2) q setup-option^ make-zo)) q (33630 . 4)) ((c def c (c (? . 0) q lam-toplevel-map)) c (? . 32)) ((c def c (c (? . 0) q boxenv?)) c (? . 42)) ((c def c (c (? . 0) q make-localref)) c (? . 5)) ((c def c (c (? . 11) q current-multi-compile-any)) q (4263 . 4)) ((c def c (c (? . 0) q localref-pos)) c (? . 5)) ((c def c (c (? . 57) q embedding-executable-is-actually-directory?)) q (18014 . 3)) ((c def c (c (? . 0) q localref-type)) c (? . 5)) ((c def c (c (? . 3) q get-collects-search-dirs)) q (37639 . 2)) ((c def c (c (? . 3) q find-doc-dir)) q (38221 . 2)) ((c def c (c (? . 57) q embedding-executable-add-suffix)) q (18320 . 5)) ((c def c (c (? . 0) q struct:struct-type-shape)) c (? . 50)) ((c def c (c (? . 0) q struct-type-shape?)) c (? . 50)) ((c def c (c (? . 67) q collection-name?)) q (44698 . 3)) ((c def c (c (? . 24) q get-info)) q (40868 . 10)) ((c def c (c (? . 63) q matching-platform?)) q (45609 . 15)) ((c def c (c (? . 0) q linkl-internals)) c (? . 17)) ((c def c (c (? . 0) q def-values?)) c (? . 19)) ((c def c (c (? . 3) q find-collects-dir)) q (37540 . 2)) ((c sig-val c (c (? . 2) q setup-option^ specific-collections)) q (35021 . 4)) ((c def c (c (? . 0) q struct-shape)) c (? . 55)) ((q def ((lib "compiler/depend.rkt") module-recorded-dependencies)) q (11960 . 4)) ((c def c (c (? . 0) q linkl-importss)) c (? . 17)) ((c def c (c (? . 0) q lam-flags)) c (? . 32)) ((c def c (c (? . 3) q get-gui-bin-search-dirs)) q (39483 . 2)) ((c def c (c (? . 0) q struct:form)) c (? . 49)) ((c def c (c (? . 0) q struct-type-shape-authentic?)) c (? . 50)) ((c def c (c (? . 64) q main-doc-relative->path)) q (43431 . 5)) ((c def c (c (? . 3) q find-include-dir)) q (38999 . 2)) ((c def c (c (? . 0) q make-primval)) c (? . 20)) ((c def c (c (? . 6) q make-gracket-launcher)) q (19038 . 9)) ((c def c (c (? . 0) q make-beg0)) c (? . 47)) ((c sig-val c (c (? . 2) q setup-option^ make-tidy)) q (34352 . 4)) ((c def c (c (? . 6) q make-mzscheme-program-launcher)) q (21454 . 7)) ((c def c (c (? . 0) q assign)) c (? . 38)) ((c def c (c (? . 24) q directory-record-syms)) c (? . 25)) ((c def c (c (? . 57) q write-module-bundle)) q (17248 . 13)) ((c def c (c (? . 0) q constructor-shape?)) c (? . 46)) ((c def c (c (? . 0) q let-rec?)) c (? . 40)) ((c def c (c (? . 56) q get-compilation-dir)) q (7334 . 11)) ((c def c (c (? . 13) q strip-correlated)) q (58671 . 3)) ((c def c (c (? . 0) q accessor-shape)) c (? . 12)) ((c def c (c (? . 65) q zo-marshal-to)) q (48665 . 4)) ((c def c (c (? . 29) q make-collections-xref)) q (46946 . 13)) ((c def c (c (? . 0) q inline-variant)) c (? . 4)) ((c def c (c (? . 11) q current-path->mode)) q (2105 . 6)) ((c def c (c (? . 0) q let-one)) c (? . 34)) ((c def c (c (? . 0) q toplevel-depth)) c (? . 41)) ((c sig-val c (c (? . 2) q setup-option^ make-user)) q (34074 . 4)) ((c def c (c (? . 6) q racket-launcher-up-to-date?)) q (25568 . 4)) ((c def c (c (? . 61) q path->relative-string/library)) q (43606 . 8)) ((c def c (c (? . 0) q accessor-shape-field-count)) c (? . 12)) ((c def c (c (? . 13) q faslable-correlated-linklet?)) c (? . 14)) ((c def c (c (? . 6) q available-gracket-variants)) q (26037 . 2)) ((c def c (c (? . 0) q make-linkl-bundle)) c (? . 21)) ((c def c (c (? . 24) q directory-record-spec)) c (? . 25)) ((c def c (c (? . 0) q let-rec-procs)) c (? . 40)) ((c def c (c (? . 24) q struct:directory-record)) c (? . 25)) ((c def c (c (? . 66) q normalized-lib-module-path?)) q (45476 . 3)) ((c def c (c (? . 67) q collection-name-element?)) q (44760 . 3)) ((c def c (c (? . 6) q available-mred-variants)) q (26436 . 2)) ((c def c (c (? . 68) q get-module-suffix-regexp)) q (10963 . 8)) ((c def c (c (? . 6) q mred-launcher-is-actually-directory?)) q (23832 . 2)) ((c def c (c (? . 0) q predicate-shape?)) c (? . 59)) ((c sig-val c (c (? . 2) q setup-option^ call-post-install)) q (34522 . 4)) ((c def c (c (? . 6) q extract-aux-from-path)) q (25810 . 3)) ((c sig-val c (c (? . 2) q setup-option^ make-docs)) q (33992 . 4)) ((c def c (c (? . 69) q parallel-compile-files)) q (4377 . 16)) ((c def c (c (? . 0) q with-cont-mark-key)) c (? . 45)) ((c def c (c (? . 70) q update-matching-library-path)) q (26805 . 7)) ((c def c (c (? . 54) q current-command-name)) q (68469 . 4)) ((c def c (c (? . 0) q mutator-shape)) c (? . 35)) ((c def c (c (? . 0) q beg0?)) c (? . 47)) ((c def c (c (? . 0) q make-struct-type-shape)) c (? . 50)) ((c def c (c (? . 0) q with-immed-mark-def-val)) c (? . 8)) ((c def c (c (? . 3) q find-user-links-file)) q (37862 . 3)) ((c sig-val c (c (? . 2) q setup-option^ fail-fast)) q (34849 . 4)) ((c def c (c (? . 0) q struct:branch)) c (? . 43)) ((c def c (c (? . 3) q get-man-extra-search-dirs)) q (39836 . 2)) ((c def c (c (? . 0) q def-values-ids)) c (? . 19)) ((c def c (c (? . 3) q get-gui-bin-extra-search-dirs)) q (39540 . 2)) ((c def c (c (? . 0) q application?)) c (? . 28)) ((c def c (c (? . 0) q make-case-lam)) c (? . 31)) ((c def c (c (? . 37) q pack)) q (63751 . 26)) ((c def c (c (? . 71) q register-external-file)) q (5996 . 5)) ((c def c (c (? . 3) q find-share-dir)) q (38790 . 2)) ((c def c (c (? . 3) q find-addon-tethered-console-bin-dir)) q (40461 . 2)) ((c def c (c (? . 0) q struct:predicate-shape)) c (? . 59)) ((c def c (c (? . 13) q faslable-correlated-source)) c (? . 23)) ((c def c (c (? . 11) q file-stamp-in-collection)) q (2325 . 4)) ((c sig-val c (c (? . 2) q setup-option^ compile-mode)) q (33519 . 4)) ((c def c (c (? . 0) q linkl-bundle?)) c (? . 21)) ((c def c (c (? . 0) q struct:function-shape)) c (? . 27)) ((c def c (c (? . 62) q somewhat-verbose)) q (11544 . 4)) ((c def c (c (? . 0) q lam-num-params)) c (? . 32)) ((c def c (c (? . 0) q closure)) c (? . 44)) ((c def c (c (? . 6) q mzscheme-program-launcher-path)) q (24158 . 7)) ((c def c (c (? . 6) q mred-launcher-up-to-date?)) q (26160 . 4)) ((c def c (c (? . 0) q make-application)) c (? . 28)) ((c def c (c (? . 0) q struct:zo)) c (? . 26)) ((c def c (c (? . 0) q assign-undef-ok?)) c (? . 38)) ((c def c (c (? . 0) q apply-values)) c (? . 9)) ((c def c (c (? . 72) q path->main-collects-relative)) q (42940 . 4)) ((c def c (c (? . 3) q get-doc-search-url)) q (39955 . 2)) ((c def c (c (? . 3) q get-man-search-dirs)) q (39783 . 2)) ((c def c (c (? . 11) q make-compilation-manager-load/use-compiled-handler)) q (0 . 7)) ((c def c (c (? . 57) q make-embedding-executable)) q (15763 . 29)) ((c def c (c (? . 24) q find-relevant-directories)) q (41514 . 5)) ((c def c (c (? . 11) q managed-compile-zo)) q (471 . 8)) ((c def c (c (? . 73) q build-contents)) q (28298 . 33)) ((c def c (c (? . 0) q struct-other-shape?)) c (? . 74)) ((c def c (c (? . 0) q branch-then)) c (? . 43)) ((c def c (c (? . 24) q make-directory-record)) c (? . 25)) ((c def c (c (? . 0) q mutator-shape-authentic?)) c (? . 35)) ((c def c (c (? . 0) q struct-type-property-shape-has-guard?)) c (? . 52)) ((c def c (c (? . 0) q function-shape-arity)) c (? . 27)) ((c def c (c (? . 6) q mzscheme-launcher-up-to-date?)) q (26296 . 4)) ((c def c (c (? . 0) q inline-variant-direct)) c (? . 4)) ((c def c (c (? . 24) q reset-relevant-directories-state!)) q (42128 . 2)) ((q def ((lib "compiler/option-unit.rkt") compiler:option@)) q (11927 . 2)) ((c def c (c (? . 58) q collects-relative->path)) q (42522 . 5)) ((c def c (c (? . 0) q primval)) c (? . 20)) ((c def c (c (? . 3) q find-man-dir)) q (39694 . 2)) ((c def c (c (? . 0) q struct:beg0)) c (? . 47)) ((c def c (c (? . 0) q make-expr)) c (? . 51)) ((c def c (c (? . 0) q branch-test)) c (? . 43)) ((c def c (c (? . 3) q get-distribution-documentation-packages)) q (40333 . 2)) ((c def c (c (? . 30) q cross-installation?)) q (46791 . 2)) ((q def ((lib "compiler/distribute.rkt") assemble-distribution)) q (27084 . 13)) ((c def c (c (? . 0) q case-lam)) c (? . 31)) ((c def c (c (? . 11) q make-compile-lock)) q (4016 . 2)) ((c def c (c (? . 0) q seq?)) c (? . 48)) ((c def c (c (? . 0) q make-let-one)) c (? . 34)) ((c def c (c (? . 0) q localref-clear?)) c (? . 5)) ((c sig-val c (c (? . 2) q setup-option^ make-info-domain)) q (33708 . 4)) ((q def ((lib "compiler/decompile.rkt") decompile)) q (48322 . 5)) ((c def c (c (? . 6) q install-gracket-program-launcher)) q (20135 . 7)) ((c def c (c (? . 0) q lam)) c (? . 32)) ((c def c (c (? . 0) q make-with-cont-mark)) c (? . 45)) ((c def c (c (? . 3) q find-config-dir)) q (37760 . 2)) ((c def c (c (? . 0) q make-predicate-shape)) c (? . 59)) ((c def c (c (? . 6) q gracket-launcher-is-actually-directory?)) q (22827 . 2)) ((c def c (c (? . 29) q load-collections-xref)) q (46837 . 3)) ((c def c (c (? . 6) q mred-program-launcher-path)) q (23494 . 7)) ((c def c (c (? . 6) q make-mred-launcher)) q (20628 . 5)) ((c def c (c (? . 0) q struct:let-one)) c (? . 34)) ((c def c (c (? . 3) q get-lib-search-dirs)) q (38511 . 2)) ((c def c (c (? . 11) q get-compiled-file-sha1)) q (2631 . 3)) ((c def c (c (? . 37) q pack-collections)) q (61617 . 15)) ((c def c (c (? . 0) q make-struct-other-shape)) c (? . 74)) ((q def ((lib "compiler/find-exe.rkt") find-exe)) q (18558 . 11)) ((c def c (c (? . 0) q linkl-lifts)) c (? . 17)) ((c def c (c (? . 0) q struct-other-shape)) c (? . 74)) ((c def c (c (? . 0) q boxenv)) c (? . 42)) ((c def c (c (? . 6) q gracket-program-launcher-path)) q (21952 . 9))))
procedure
(make-compilation-manager-load/use-compiled-handler                                           
                                                    [delete-zos-when-rkt-file-does-not-exist? 
                                                     #:security-guard security-guard])        
 -> (path? (or/c symbol? #f) . -> . any)
  delete-zos-when-rkt-file-does-not-exist? : any/c = #f
  security-guard : (or/c security-guard? #f) = #f
procedure
(managed-compile-zo  file                                  
                    [read-src-syntax                       
                     #:security-guard security-guard]) -> void?
  file : path-string?
  read-src-syntax : (any/c input-port? . -> . syntax?)
                  = read-syntax
  security-guard : (or/c security-guard? #f) = #f
value
managed-compiled-context-key : any/c
procedure
(make-compilation-context-error-display-handler orig-handlers)
 -> (string? any/c . -> . void?)
  orig-handlers : (string? any/c . -> . void?)
parameter
(trust-existing-zos) -> boolean?
(trust-existing-zos trust?) -> void?
  trust? : any/c
procedure
(make-caching-managed-compile-zo                                    
                                 [read-src-syntax                   
                                  #:security-guard security-guard]) 
 -> (path-string? . -> . void?)
  read-src-syntax : (any/c input-port? . -> . syntax?)
                  = read-syntax
  security-guard : (or/c security-guard? #f) = #f
parameter
(manager-compile-notify-handler) -> (path? . -> . any)
(manager-compile-notify-handler notify) -> void?
  notify : (path? . -> . any)
parameter
(manager-trace-handler) -> (string? . -> . any)
(manager-trace-handler notify) -> void?
  notify : (string? . -> . any)
parameter
(manager-skip-file-handler)
 -> (-> path? (or/c (cons/c number? promise?) #f))
(manager-skip-file-handler proc) -> void?
  proc : (-> path? (or/c (cons/c number? promise?) #f))
parameter
(current-path->mode)
 -> (or/c #f (-> path? (and/c path? relative-path?)))
(current-path->mode path->mode) -> void?
  path->mode : (or/c #f (-> path? (and/c path? relative-path?)))
 = #f
procedure
(file-stamp-in-collection p)
 -> (or/c (cons/c number? promise?) #f)
  p : path?
procedure
(file-stamp-in-paths p paths)
 -> (or/c (cons/c number? promise?) #f)
  p : path?
  paths : (listof path?)
procedure
(get-file-sha1 p) -> (or/c string? #f)
  p : path?
procedure
(get-compiled-file-sha1 p) -> (or/c string? #f)
  p : path?
procedure
(with-compile-output p proc) -> any
  p : path-string?
  proc : ([port input-port?] [tmp-path path?]  . -> . any)
parameter
(parallel-lock-client)
 -> (or/c #f
          (->i ([command (or/c 'lock 'unlock)]
                [file bytes?])
               [res (command) (if (eq? command 'lock)
                                  boolean?
                                  void?)]))
(parallel-lock-client proc) -> void?
  proc : (or/c #f
               (->i ([command (or/c 'lock 'unlock)]
                     [file bytes?])
                    [res (command) (if (eq? command 'lock)
                                       boolean?
                                       void?)]))
procedure
(compile-lock->parallel-lock-client  pc                     
                                    [cust                   
                                     current-shutdown-evt]) 
 -> (-> (or/c 'lock 'unlock) bytes? boolean?)
  pc : place-channel?
  cust : (or/c #f custodian?) = #f
  current-shutdown-evt : (-> evt?) = (lambda () never-evt)
procedure
(make-compile-lock) -> place-channel?
procedure
(install-module-hashes! bstr [start end]) -> void?
  bstr : bytes?
  start : exact-nonnegative-integer? = 0
  end : exact-nonnegative-integer? = (bytes-length bstr)
parameter
(current-multi-compile-any) -> boolean?
(current-multi-compile-any on?) -> void?
  on? : any/c
procedure
(parallel-compile-files  list-of-files               
                        [#:worker-count worker-count 
                         #:use-places? use-places?   
                         #:handler handler])         
 -> (or/c void? #f)
  list-of-files : (listof path-string?)
  worker-count : exact-positive-integer? = (processor-count)
  use-places? : any/c = #t
  handler : (->i ([worker-id exact-integer?] = void
                  [handler-type symbol?]
                  [path path-string?]
                  [msg string?]
                  [out string?]
                  [err string?])
                 void?)
procedure
(parallel-compile  worker-count                    
                   setup-fprintf                   
                   append-error                    
                   collects-tree                   
                  [#:use-places? use-places?]) -> (void)
  worker-count : non-negative-integer?
  setup-fprintf : (->i ([stage string?] [format string?])
                       ()
                       #:rest (listof any/c) void)
  append-error : (->i ([cc cc?]
                       [prefix string?]
                       [exn (or/c exn? (cons/c string? string?) #f)]
                       [out string?]
                       [err string?]
                       [message string?])
                      void?)
  collects-tree : (listof any/c)
  use-places? : any/c = #t
procedure
(register-external-file  file                        
                        [#:indirect? indirect?]) -> void?
  file : (and path? complete-path?)
  indirect? : any/c = #f
procedure
(register-external-module  file                        
                          [#:indirect? indirect?]) -> void?
  file : (and path? complete-path?)
  indirect? : any/c = #f
procedure
(compile-file src [dest filter]) -> path?
  src : path-string?
  dest : path-string?
       = (let-values ([(base name dir?) (split-path src)])
           (build-path base "compiled"
                       (path-add-suffix name #".zo")))
  filter : (any/c . -> . any/c) = values
procedure
(get-compilation-dir+name  path                          
                          [#:modes modes                 
                           #:roots roots                 
                           #:default-root default-root]) 
 -> path? path?
  path : path-string?
  modes : (non-empty-listof (and/c path-string? relative-path?))
        = (use-compiled-file-paths)
  roots : (non-empty-listof (or/c path-string? 'same))
        = (current-compiled-file-roots)
  default-root : (or/c path-string? 'same) = (car roots)
procedure
(get-compilation-dir  path                              
                     [#:modes modes                     
                      #:roots roots                     
                      #:default-root default-root]) -> path?
  path : path-string?
  modes : (non-empty-listof (and/c path-string? relative-path?))
        = (use-compiled-file-paths)
  roots : (non-empty-listof (or/c path-string? 'same))
        = (current-compiled-file-roots)
  default-root : (or/c path-string? 'same) = (car roots)
procedure
(get-compilation-bytecode-file  path                          
                               [#:modes modes                 
                                #:roots roots                 
                                #:default-root default-root]) 
 -> path?
  path : path-string?
  modes : (non-empty-listof (and/c path-string? relative-path?))
        = (use-compiled-file-paths)
  roots : (non-empty-listof (or/c path-string? 'same))
        = (current-compiled-file-roots)
  default-root : (or/c path-string? 'same) = (car roots)
procedure
((compile-zos  expr                      
              [#:module? module?         
               #:verbose? verbose?])     
 racket-files                            
 dest-dir)                           -> void?
  expr : any/c
  module? : any/c = #f
  verbose? : any/c = #f
  racket-files : (listof path-string?)
  dest-dir : (or/c path-string? #f 'auto)
procedure
(compile-collection-zos                                            
                         collection ...+                           
                        [#:skip-path skip-path                     
                         #:skip-paths skip-paths                   
                         #:skip-doc-sources? skip-docs?            
                         #:managed-compile-zo managed-compile-zo]) 
 -> void?
  collection : string?
  skip-path : (or/c path-string? #f) = #f
  skip-paths : (listof path-string?) = null
  skip-docs? : any/c = #f
  managed-compile-zo : (path-string? . -> . void?)
                     = (make-caching-managed-compile-zo)
procedure
(compile-directory-zos                                            
                        path                                      
                        info                                      
                       [#:verbose verbose?                        
                        #:skip-path skip-path                     
                        #:skip-paths skip-paths                   
                        #:skip-doc-sources? skip-docs?            
                        #:managed-compile-zo managed-compile-zo]) 
 -> void?
  path : path-string?
  info : procedure?
  verbose? : any/c = #f
  skip-path : (or/c path-string? #f) = #f
  skip-paths : (listof path-string?) = null
  skip-docs? : any/c = #f
  managed-compile-zo : (path-string? . -> . void?)
                     = (make-caching-managed-compile-zo)
procedure
(get-module-suffixes [#:group group               
                      #:mode mode                 
                      #:namespace namespace]) -> (listof bytes?)
  group : (or/c 'all 'libs 'docs) = 'all
  mode : (or/c 'preferred 'all-available 'no-planet 'no-user)
       = 'preferred
  namespace : (or/c #f namespace?) = #f
procedure
(get-module-suffix-regexp [#:group group               
                           #:mode mode                 
                           #:namespace namespace]) -> byte-regexp?
  group : (or/c 'all 'libs 'docs) = 'all
  mode : (or/c 'preferred 'all-available 'no-planet 'no-user)
       = 'preferred
  namespace : (or/c #f namespace?) = #f
parameter
(current-compiler-dynamic-require-wrapper)
 -> ((-> any) . -> . any)
(current-compiler-dynamic-require-wrapper proc) -> void?
  proc : ((-> any) . -> . any)
parameter
(somewhat-verbose) -> boolean?
(somewhat-verbose on?) -> void?
  on? : any/c
parameter
(verbose) -> boolean?
(verbose on?) -> void?
  on? : any/c
parameter
(compile-subcollections) -> boolean?
(compile-subcollections on?) -> void?
  on? : any/c
signature
compiler^ : signature
signature
compiler:option^ : signature
value
compiler@ : unit?
value
compiler:option@ : unit?
procedure
(module-recorded-dependencies module-file)
 -> (listof (and path? (complete-path? path?)))
  module-file : path?
procedure
(create-embedding-executable                                                  
                              dest                                            
                              #:modules mod-list                              
                             [#:early-literal-expressions early-literal-sexps 
                              #:configure-via-first-module? config-via-first? 
                              #:literal-files literal-files                   
                              #:literal-expression literal-sexp               
                              #:literal-expressions literal-sexps             
                              #:cmdline cmdline                               
                              #:gracket? gracket?                             
                              #:mred? mred?                                   
                              #:variant variant                               
                              #:aux aux                                       
                              #:collects-path collects-path                   
                              #:collects-dest collects-dest                   
                              #:launcher? launcher?                           
                              #:verbose? verbose?                             
                              #:expand-namespace expand-namespace             
                              #:compiler compile-proc                         
                              #:src-filter src-filter                         
                              #:on-extension ext-proc                         
                              #:get-extra-imports extras-proc])               
 -> void?
  dest : path-string?
  mod-list : (listof (or/c (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?))
                           (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?)
                                   (listof symbol?))))
  early-literal-sexps : list? = null
  config-via-first? : any/c = #f
  literal-files : (listof path-string?) = null
  literal-sexp : any/c = #f
  literal-sexps : list? = (if literal-sexp
                              (list literal-sexp)
                              null)
  cmdline : (listof string?) = null
  gracket? : any/c = #f
  mred? : any/c = #f
  variant : (or/c 'cgc '3m 'cs) = (system-type 'gc)
  aux : (listof (cons/c symbol? any/c)) = null
  collects-path : (or/c #f                     = #f
                        path-string?
                        (listof path-string?))
  collects-dest : (or/c #f path-string?) = #f
  launcher? : any/c = #f
  verbose? : any/c = #f
  expand-namespace : namespace? = (current-namespace)
  compile-proc : (any/c . -> . compiled-expression?)
               = (lambda (e)
                   (parameterize ([current-namespace
                                   expand-namespace])
                     (compile e)))
  src-filter : (path? . -> . any) = (lambda (p) #t)
  ext-proc : (or/c #f (path-string? boolean? . -> . any)) = #f
  extras-proc : (path? compiled-module-expression?
                 . -> . (listof module-path?))
              = (lambda (p m) null)
procedure
(make-embedding-executable  dest                
                            mred?               
                            verbose?            
                            mod-list            
                            literal-files       
                            literal-sexp        
                            cmdline             
                           [aux                 
                            launcher?           
                            variant             
                            collects-path]) -> void?
  dest : path-string?
  mred? : any/c
  verbose? : any/c
  mod-list : (listof (or/c (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?))
                           (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?)
                                   (listof symbol?))))
  literal-files : (listof path-string?)
  literal-sexp : any/c
  cmdline : (listof string?)
  aux : (listof (cons/c symbol? any/c)) = null
  launcher? : any/c = #f
  variant : (or/c 'cgc '3m 'cs) = (system-type 'gc)
  collects-path : (or/c #f                     = #f
                        path-string?
                        (listof path-string?))
procedure
(write-module-bundle verbose?          
                     mod-list          
                     literal-files     
                     literal-sexp) -> void?
  verbose? : any/c
  mod-list : (listof (or/c (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?))
                           (list/c (or/c symbol? #f #t)
                                   (or/c module-path? path?)
                                   (listof symbol?))))
  literal-files : (listof path-string?)
  literal-sexp : any/c
procedure
(embedding-executable-is-directory? mred?) -> boolean
  mred? : any/c
procedure
(embedding-executable-is-actually-directory? mred?) -> boolean?
  mred? : any/c
procedure
(embedding-executable-put-file-extension+style+filters mred?)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
  mred? : any/c
procedure
(embedding-executable-add-suffix path       
                                 mred?) -> path-string?
  path : path-string?
  mred? : any/c
signature
compiler:embed^ : signature
value
compiler:embed@ : unit?
procedure
(find-exe [#:cross? cross?               
           #:untethered? untethered?     
           gracket?                      
           variant])                 -> path?
  cross? : any/c = #f
  untethered? : any/c = #f
  gracket? : any/c = #f
  variant : (or/c 'cgc '3m 'cs) = (if cross?
                                      (cross-system-type 'gc)
                                      (system-type 'gc))
procedure
(make-gracket-launcher  args                            
                        dest                            
                       [aux                             
                        #:tether-mode tether-mode]) -> void?
  args : (listof string?)
  dest : path-string?
  aux : (listof (cons/c symbol? any/c)) = null
  tether-mode : (or/c 'addon 'config #f) = 'addon
procedure
(make-racket-launcher args dest [aux]) -> void?
  args : (listof string?)
  dest : path-string?
  aux : (listof (cons/c symbol? any/c)) = null
procedure
(make-gracket-program-launcher file           
                               collection     
                               dest)      -> void?
  file : string?
  collection : string?
  dest : path-string?
procedure
(make-racket-program-launcher file           
                              collection     
                              dest)      -> void?
  file : string?
  collection : string?
  dest : path-string?
procedure
(install-gracket-program-launcher file           
                                  collection     
                                  name)      -> void?
  file : string?
  collection : string?
  name : string?
procedure
(install-racket-program-launcher file           
                                 collection     
                                 name)      -> void?
  file : string?
  collection : string?
  name : string?
procedure
(make-mred-launcher args dest [aux]) -> void?
  args : (listof string?)
  dest : path-string?
  aux : (listof (cons/c symbol? any/c)) = null
procedure
(make-mred-program-launcher file           
                            collection     
                            dest)      -> void?
  file : string?
  collection : string?
  dest : path-string?
procedure
(install-mred-program-launcher file           
                               collection     
                               name)      -> void?
  file : string?
  collection : string?
  name : string?
procedure
(make-mzscheme-launcher args dest [aux]) -> void?
  args : (listof string?)
  dest : path-string?
  aux : (listof (cons/c symbol? any/c)) = null
procedure
(make-mzscheme-program-launcher file           
                                collection     
                                dest)      -> void?
  file : string?
  collection : string?
  dest : path-string?
procedure
(install-mzscheme-program-launcher file           
                                   collection     
                                   name)      -> void?
  file : string?
  collection : string?
  name : string?
procedure
(gracket-program-launcher-path  name                      
                               [#:user? user?             
                                #:tethered? tethered?     
                                #:console? console?]) -> path?
  name : string?
  user? : any/c = #f
  tethered? : any/c = #f
  console? : any/c = #f
procedure
(racket-program-launcher-path  name                      
                              [#:user? user?             
                               #:tethered? tethered?     
                               #:console? console?]) -> path?
  name : string?
  user? : any/c = #f
  tethered? : any/c = #f
  console? : any/c = #f
procedure
(gracket-launcher-is-directory?) -> boolean?
procedure
(racket-launcher-is-directory?) -> boolean?
procedure
(gracket-launcher-is-actually-directory?) -> boolean?
procedure
(racket-launcher-is-actually-directory?) -> boolean?
procedure
(gracket-launcher-add-suffix path-string?) -> path?
  path-string? : path
procedure
(racket-launcher-add-suffix path-string?) -> path?
  path-string? : path
procedure
(gracket-launcher-put-file-extension+style+filters)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
procedure
(racket-launcher-put-file-extension+style+filters)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
procedure
(mred-program-launcher-path  name                        
                            [#:user? user?               
                             #:tethered? tethered?]) -> path?
  name : string?
  user? : any/c = #f
  tethered? : any/c = #f
procedure
(mred-launcher-is-directory?) -> boolean?
procedure
(mred-launcher-is-actually-directory?) -> boolean?
procedure
(mred-launcher-add-suffix path-string?) -> path?
  path-string? : path
procedure
(mred-launcher-put-file-extension+style+filters)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
procedure
(mzscheme-program-launcher-path  name                        
                                [#:user? user?               
                                 #:tethered? tethered?]) -> path?
  name : string?
  user? : any/c = #f
  tethered? : any/c = #f
procedure
(mzscheme-launcher-is-directory?) -> boolean?
procedure
(mzscheme-launcher-is-actually-directory?) -> boolean?
procedure
(mzscheme-launcher-add-suffix path-string?) -> path?
  path-string? : path
procedure
(mzscheme-launcher-put-file-extension+style+filters)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
procedure
(installed-executable-path->desktop-path exec-path  
                                         user?      
                                         tethered?) 
 -> (or/c (and/c path? complete-path?) #f)
  exec-path : path-string?
  user? : any/c
  tethered? : any/c
procedure
(installed-desktop-path->icon-path desktop-path 
                                   user?        
                                   suffix)      
 -> (and/c path? complete-path?)
  desktop-path : path-string?
  user? : any/c
  suffix : bytes?
procedure
(gracket-launcher-up-to-date? dest aux) -> boolean?
  dest : path-string?
  aux : (listof (cons/c symbol? any/c))
procedure
(racket-launcher-up-to-date? dest aux) -> boolean?
  dest : path-string?
  aux : (listof (cons/c symbol? any/c))
procedure
(build-aux-from-path path) -> (listof (cons/c symbol? any/c))
  path : path-string?
procedure
(extract-aux-from-path path) -> (listof (cons/c symbol? any/c))
  path : path-string?
parameter
(current-launcher-variant) -> symbol?
(current-launcher-variant variant) -> void?
  variant : symbol?
procedure
(available-gracket-variants) -> (listof symbol?)
procedure
(available-racket-variants) -> (listof symbol?)
procedure
(mred-launcher-up-to-date? dest aux) -> boolean?
  dest : path-string?
  aux : (listof (cons/c symbol? any/c))
procedure
(mzscheme-launcher-up-to-date? dest aux) -> boolean?
  dest : path-string?
  aux : (listof (cons/c symbol? any/c))
procedure
(available-mred-variants) -> (listof symbol?)
procedure
(available-mzscheme-variants) -> (listof symbol?)
signature
launcher^ : signature
value
launcher@ : unit?
procedure
(find-matching-library-path exe-path         
                            library-str) -> (or/c #f string?)
  exe-path : path-string?
  library-str : string?
procedure
(update-matching-library-path exe-path              
                              library-str           
                              library-path-str) -> void?
  exe-path : path-string?
  library-str : string?
  library-path-str : string?
procedure
(assemble-distribution  dest-dir                          
                        exec-files                        
                       [#:executables? executables?       
                        #:relative-base relative-base     
                        #:collects-path path              
                        #:copy-collects dirs])        -> void?
  dest-dir : path-string?
  exec-files : (listof path-string?)
  executables? : any/c = #t
  relative-base : (or/c path-string? #f) = #f
  path : (or/c #f (and/c path-string? relative-path?)) = #f
  dirs : (listof path-string?) = null
procedure
(bundle-directory dist-file dir [for-exe?]) -> void?
  dist-file : file-path?
  dir : file-path?
  for-exe? : any/c = #f
procedure
(bundle-put-file-extension+style+filters)
 -> (or/c string? #f)
    (listof (or/c 'packages 'enter-packages))
    (listof (list/c string? string?))
procedure
(get-language-families [#:user? user?               
                        #:namespace namespace]) -> (listof hash?)
  user? : any/c = #t
  namespace : (or/c #f namespace?) = #f
procedure
(build-contents                                                    
                [#:user? user?                                     
                 #:supplant supplant                               
                 #:style style                                     
                 #:main-language-family language-family            
                 #:title-content title-content                     
                 #:self-path self-path                             
                 #:bug-url bug-url                                 
                 #:default-category default-category               
                 #:doc-properties doc-properties                   
                 #:default-language-family default-language-family 
                 #:version doc-version                             
                 #:date doc-date])                                 
 -> pre-part?
  user? : any/c = #f
  supplant : (or/c #f string?) = #f
  style : (or/c style? #f string? symbol? (listof symbol?)) = #f
  language-family : string? = (get-main-language-family)
  title-content : content?
                = (list language-family
                        (element (style #f '(aux)) " Documentation"))
  self-path : (or/c #f path-string?) = #f
  bug-url : (or/c #f string?) = #f
  default-category : list? = '(language)
  doc-properties : hash? = (make-default-doc-properties
                            main-family
                            default-category
                            supplant)
  default-language-family : (or/c #f (nonempty-listof string?))
                          = #f
  doc-version : (or/c #f string?) = #f
  doc-date : (or/c #f string?) = #f
procedure
(make-default-doc-properties                                      
                             [#:language-family language-family   
                              #:default-category default-category 
                              #:supplant supplant])               
 -> hash?
  language-family : string? = (get-main-language-family)
  default-category : list? = '(language)
  supplant : (or/c #f string?) = #f
procedure
(setup [#:file file                             
        #:collections collections               
        #:pkgs pkgs                             
        #:planet-specs planet-specs             
        #:make-user? make-user?                 
        #:avoid-main? avoid-main?               
        #:make-docs? make-docs?                 
        #:make-doc-index? make-doc-index?       
        #:force-user-docs? force-user-docs?     
        #:check-pkg-deps? check-pkg-deps?       
        #:fix-pkg-deps? fix-pkg-deps?           
        #:unused-pkg-deps? unused-pkg-deps?     
        #:clean? clean?                         
        #:tidy? tidy?                           
        #:recompile-only? recompile-only?       
        #:recompile-cache recompile-cache       
        #:jobs jobs                             
        #:fail-fast? fail-fast?                 
        #:get-target-dir get-target-dir])   -> boolean?
  file : (or/c #f path-string?) = #f
  collections : (or/c #f (listof (listof path-string?))) = #f
  pkgs : (or/c #f (listof string?)) = #f
  planet-specs : (or/c #f
                       (listof (list/c string?
                                       string?
                                       exact-nonnegative-integer?
                                       exact-nonnegative-integer?)))
               = #f
  make-user? : any/c = #t
  avoid-main? : any/c = #f
  make-docs? : any/c = #t
  make-doc-index? : any/c = #f
  force-user-docs? : any/c = #f
  check-pkg-deps? : any/c = #f
  fix-pkg-deps? : any/c = #f
  unused-pkg-deps? : any/c = #f
  clean? : any/c = #f
  tidy? : any/c = #f
  recompile-only? : any/c = #f
  recompile-cache : (or/c path-string? #f) = #f
  jobs : exact-nonnegative-integer? = #f
  fail-fast? : any/c = #f
  get-target-dir : (or/c #f (-> path-string?)) = #f
value
setup@ : unit?
value
setup:option@ : unit?
signature
setup-option^ : signature
parameter
(setup-program-name) -> string?
(setup-program-name name) -> void?
  name : string?
parameter
(setup-compiled-file-paths)
 -> (or/c #f (listof (and/c path? relative-path?)))
(setup-compiled-file-paths paths) -> void?
  paths : (or/c #f (listof (and/c path? relative-path?)))
parameter
(verbose) -> boolean?
(verbose on?) -> void?
  on? : any/c
parameter
(make-verbose) -> boolean?
(make-verbose on?) -> void?
  on? : any/c
parameter
(compiler-verbose) -> boolean?
(compiler-verbose on?) -> void?
  on? : any/c
parameter
(clean) -> boolean?
(clean on?) -> void?
  on? : any/c
parameter
(compile-mode) -> (or/c path? #f)
(compile-mode path) -> void?
  path : (or/c path? #f)
parameter
(make-zo) -> boolean?
(make-zo on?) -> void?
  on? : any/c
parameter
(make-info-domain) -> boolean?
(make-info-domain on?) -> void?
  on? : any/c
parameter
(make-launchers) -> boolean?
(make-launchers on?) -> void?
  on? : any/c
parameter
(make-foreign-lib) -> boolean?
(make-foreign-lib on?) -> void?
  on? : any/c
parameter
(make-docs) -> boolean?
(make-docs on?) -> void?
  on? : any/c
parameter
(make-user) -> boolean?
(make-user on?) -> void?
  on? : any/c
parameter
(make-planet) -> boolean?
(make-planet on?) -> void?
  on? : any/c
parameter
(avoid-main-installation) -> boolean?
(avoid-main-installation on?) -> void?
  on? : any/c
parameter
(make-tidy) -> boolean?
(make-tidy on?) -> void?
  on? : any/c
parameter
(call-install) -> boolean?
(call-install on?) -> void?
  on? : any/c
parameter
(call-post-install) -> boolean?
(call-post-install on?) -> void?
  on? : any/c
parameter
(pause-on-errors) -> boolean?
(pause-on-errors on?) -> void?
  on? : any/c
parameter
(parallel-workers) -> exact-nonnegative-integer?
(parallel-workers num) -> void?
  num : exact-nonnegative-integer?
parameter
(fail-fast) -> boolean?
(fail-fast on?) -> void?
  on? : any/c
parameter
(force-unpacks) -> boolean?
(force-unpacks on?) -> void?
  on? : any/c
parameter
(specific-collections) -> (listof (listof path-string?))
(specific-collections colls) -> void?
  colls : (listof (listof path-string?))
parameter
(specific-planet-dirs)
 -> (listof (list/c string?
                    string?
                    exact-nonnegative-integer?
                    exact-nonnegative-integer?))
(specific-planet-dirs dir) -> void?
  dir : (listof (list/c string?
                        string?
                        exact-nonnegative-integer?
                        exact-nonnegative-integer?))
parameter
(make-only) -> boolean?
(make-only on?) -> void?
  on? : any/c
parameter
(archives) -> (listof path-string?)
(archives arch) -> void?
  arch : (listof path-string?)
parameter
(archive-implies-reindex) -> boolean?
(archive-implies-reindex on?) -> void?
  on? : any/c
parameter
(current-target-directory-getter) -> (-> path-string?)
(current-target-directory-getter thunk) -> void?
  thunk : (-> path-string?)
parameter
(current-target-plt-directory-getter)
 -> (path-string?
     path-string?
     (listof path-string?) . -> . path-string?)
(current-target-plt-directory-getter proc) -> void?
  proc : (path-string?
          path-string?
          (listof path-string?) . -> . path-string?)
procedure
(run-single-installer                                                      
                       file                                                
                       get-dir-proc                                        
                      [#:show-beginning-of-file? show-beginning-of-file?]) 
 -> void?
  file : path-string?
  get-dir-proc : (-> (or/c path-string? #f))
  show-beginning-of-file? : any/c = #f
procedure
(install-planet-package file directory spec) -> void?
  file : path-string?
  directory : path-string?
  spec : (list/c string? string?
                 (listof string?)
                 exact-nonnegative-integer?
                 exact-nonnegative-integer?)
procedure
(reindex-user-documentation) -> void?
procedure
(clean-planet-package directory spec) -> void?
  directory : path-string?
  spec : (list/c string? string?
                 (listof string?)
                 exact-nonnegative-integer?
                 exact-nonnegative-integer?)
procedure
(find-collects-dir) -> (or/c path? #f)
procedure
(find-user-collects-dir) -> path?
procedure
(get-collects-search-dirs) -> (listof path?)
procedure
(get-main-collects-search-dirs) -> (listof path?)
procedure
(find-config-dir) -> (or/c path? #f)
procedure
(find-links-file) -> (or/c path? #f)
procedure
(find-user-links-file [vers]) -> path?
  vers : string? = (get-installation-name)
procedure
(get-links-search-files) -> (listof path?)
procedure
(find-pkgs-dir) -> (or/c path? #f)
procedure
(find-user-pkgs-dir [vers]) -> path?
  vers : string? = (get-installation-name)
procedure
(get-pkgs-search-dirs) -> (listof path?)
procedure
(find-doc-dir) -> (or/c path? #f)
procedure
(find-user-doc-dir) -> path?
procedure
(get-doc-search-dirs) -> (listof path?)
procedure
(get-doc-extra-search-dirs) -> (listof path?)
procedure
(find-lib-dir) -> (or/c path? #f)
procedure
(find-user-lib-dir) -> path?
procedure
(get-lib-search-dirs) -> (listof path?)
procedure
(get-cross-lib-search-dirs) -> (listof path?)
procedure
(get-cross-lib-extra-search-dirs) -> (listof path?)
procedure
(find-dll-dir) -> (or/c path? #f)
procedure
(find-cross-dll-dir) -> (or/c path? #f)
procedure
(find-share-dir) -> (or/c path? #f)
procedure
(find-user-share-dir) -> path?
procedure
(get-share-search-dirs) -> (listof path?)
procedure
(get-share-extra-search-dirs) -> (listof path?)
procedure
(find-include-dir) -> (or/c path? #f)
procedure
(find-user-include-dir) -> path?
procedure
(get-include-search-dirs) -> (listof path?)
procedure
(find-console-bin-dir) -> (or/c path? #f)
procedure
(find-gui-bin-dir) -> (or/c path? #f)
procedure
(find-user-console-bin-dir) -> path?
procedure
(find-user-gui-bin-dir) -> path?
procedure
(get-console-bin-search-dirs) -> (listof path?)
procedure
(get-console-bin-extra-search-dirs) -> (listof path?)
procedure
(get-gui-bin-search-dirs) -> (listof path?)
procedure
(get-gui-bin-extra-search-dirs) -> (listof path?)
procedure
(find-apps-dir) -> (or/c path? #f)
procedure
(find-user-apps-dir) -> path?
procedure
(find-man-dir) -> (or/c path? #f)
procedure
(find-user-man-dir) -> path?
procedure
(get-man-search-dirs) -> (listof path?)
procedure
(get-man-extra-search-dirs) -> (listof path?)
procedure
(get-info-domain-root) -> (or/c #false path?)
procedure
(get-doc-search-url) -> string?
procedure
(get-doc-open-url) -> (or/c string? #f)
procedure
(get-installation-name config) -> string?
  config : (read-installation-configuration-table)
procedure
(get-build-stamp) -> (or/c #f string?)
procedure
(get-main-language-family) -> string?
procedure
(get-base-documentation-packages) -> (listof string?)
procedure
(get-distribution-documentation-packages) -> (listof string?)
procedure
(get-absolute-installation?) -> boolean?
procedure
(find-addon-tethered-console-bin-dir) -> (or/c #f path?)
procedure
(find-addon-tethered-gui-bin-dir) -> (or/c #f path?)
procedure
(find-addon-tethered-apps-dir) -> (or/c #f path?)
procedure
(find-config-tethered-console-bin-dir) -> (or/c #f path?)
procedure
(find-config-tethered-gui-bin-dir) -> (or/c #f path?)
procedure
(find-config-tethered-apps-dir) -> (or/c #f path?)
procedure
(get-info  collection-names          
          [#:namespace namespace     
           #:bootstrap? bootstrap?]) 
 -> (or/c
     ((symbol?) ((-> any)) . ->* . any)
     #f)
  collection-names : (listof string?)
  namespace : (or/c namespace? #f) = #f
  bootstrap? : any/c = #f
procedure
(get-info/full  path                      
               [#:namespace namespace     
                #:bootstrap? bootstrap?]) 
 -> (or/c
     ((symbol?) ((-> any)) . ->* . any)
     #f)
  path : path-string?
  namespace : (or/c namespace? #f) = #f
  bootstrap? : any/c = #f
procedure
(find-relevant-directories syms [mode]) -> (listof path?)
  syms : (listof symbol?)
  mode : (or/c 'preferred 'all-available 'no-planet 'no-user)
       = 'preferred
procedure
(find-relevant-directory-records syms key)
 -> (listof directory-record?)
  syms : (listof symbol?)
  key : (or/c 'preferred 'all-available 'no-planet 'no-user)
struct
(struct directory-record (maj min spec path syms)
    #:extra-constructor-name make-directory-record)
  maj : integer?
  min : integer?
  spec : any/c
  path : path?
  syms : (listof symbol?)
procedure
(reset-relevant-directories-state!) -> void?
procedure
(path->collects-relative  path            
                         [#:cache cache]) 
 -> (or/c path-string?
          (cons/c 'collects
                  (cons/c bytes? (non-empty-listof bytes?))))
  path : path-string?
  cache : (or/c #f (and/c hash? (not/c immutable?))) = #f
procedure
(collects-relative->path rel) -> path-string?
  rel : (or/c path-string?
              (cons/c 'collects
                      (cons/c bytes? (non-empty-listof bytes?))))
procedure
(path->module-path path [#:cache cache])
 -> (or/c path-string? normalized-lib-module-path?)
  path : path-string?
  cache : (or/c #f (and/c hash? (not/c immutable?))) = #f
procedure
(path->main-collects-relative path)
 -> (or/c path? (cons/c 'collects (non-empty-listof bytes?)))
  path : (or/c bytes? path-string?)
procedure
(main-collects-relative->path rel) -> path?
  rel : (or/c bytes?
              path-string?
              (cons/c 'collects (non-empty-listof bytes?)))
procedure
(path->main-doc-relative path)
 -> (or/c path? (cons/c 'doc (non-empty-listof bytes?)))
  path : (or/c bytes? path-string?)
procedure
(main-doc-relative->path rel) -> path>
  rel : (or/c bytes?
              path-string?
              (cons/c 'doc (non-empty-listof bytes?)))
procedure
(path->relative-string/library  path                
                               [default             
                                #:cache cache]) -> any/c
  path : path-string?
  default : (or/c (-> path-string? any/c) any/c)
          = (lambda (x) (if (path? x) (path->string x) x))
  cache : (or/c #f (and/c hash? (not/c immutable?))) = #f
procedure
(path->relative-string/setup  path                
                             [default             
                              #:cache cache]) -> any/c
  path : path-string?
  default : (or/c (-> path-string? any/c) any/c)
          = (lambda (x) (if (path? x) (path->string x) x))
  cache : (or/c #f (and/c hash? (not/c immutable?))) = #f
procedure
(make-path->relative-string dirs [default])
 -> (path-string? any/c . -> . any)
  dirs : (listof (cons (-> path?) string?))
  default : (or/c (-> path-string? any/c) any/c)
          = (lambda (x) (if (path? x) (path->string x) x))
procedure
(collection-name? v) -> boolean?
  v : any/c
procedure
(collection-name-element? v) -> boolean?
  v : any/c
procedure
(collection-search  mod-path                                    
                   [#:init result                               
                    #:combine combine                           
                    #:break? break?                             
                    #:all-possible-roots? all-possible-roots?]) 
 -> any/c
  mod-path : normalized-lib-module-path?
  result : any/c = #f
  combine : (any/c (and/c path? complete-path?) . -> . any/c)
          = (lambda (r v) v)
  break? : (any/c . -> . any/c) = (lambda (r) #f)
  all-possible-roots? : any/c = #f
procedure
(normalized-lib-module-path? v) -> boolean?
  v : any/c
procedure
(platform-spec? v) -> boolean?
  v : any/c
procedure
(matching-platform?  spec                                       
                    [#:cross? cross?                            
                     #:system-type sys-type                     
                     #:system-library-subpath sys-lib-subpath]) 
 -> boolean?
  spec : platform-spec?
  cross? : any/c = #f
  sys-type : (or/c #f symbol?) = (if cross?
                                     (cross-system-type)
                                     (system-type))
  sys-lib-subpath : (or/c #f path-for-some-system?)
                  = (if cross?
                        (cross-system-library-subpath #f)
                        (system-library-subpath #f))
procedure
(cross-system-type [mode])
 -> (or/c symbol? string? bytes? exact-positive-integer? vector?)
  mode : (or/c 'os 'os* 'arch 'word 'so-find 'platform = 'os
               'gc 'vm 'link 'machine 'target-machine
               'so-suffix 'so-mode 'fs-change)
procedure
(cross-system-library-subpath [mode]) -> path-for-some-system?
  mode : (or/c 'cgc '3m 'cs #f) = (system-type 'gc)
procedure
(cross-installation?) -> boolean?
procedure
(load-collections-xref [on-load]) -> xref?
  on-load : (-> any/c) = (lambda () (void))
procedure
(make-collections-xref                                            
                       [#:no-user? no-user?                       
                        #:no-main? no-main?                       
                        #:doc-db db-path                          
                        #:quiet-fail? quiet-fail?                 
                        #:register-shutdown! register-shutdown!]) 
 -> xref?
  no-user? : any/c = #f
  no-main? : any/c = #f
  db-path : (or/c #f path?) = #f
  quiet-fail? : any/c = #f
  register-shutdown! : ((-> any) . -> . any) = void
procedure
(get-rendered-doc-directories no-user?      
                              no-main?) -> (listof path?)
  no-user? : any/c
  no-main? : any/c
procedure
(get-current-doc-state) -> doc-state?
procedure
(doc-state-changed? doc-state) -> boolean?
  doc-state : doc-state?
procedure
(doc-state? v) -> boolean?
  v : any/c
procedure
(materialize-user-docs                                                
                       [on-setup                                      
                        #:skip-user-doc-check? skip-user-doc-check?]) 
 -> void?
  on-setup : ((-> boolean?) . -> . any)
           = (lambda (setup) (setup))
  skip-user-doc-check? : any/c = #f
procedure
(decompile top [#:to-linklets? to-linklets?]) -> any/c
  top : (or/c linkl-directory? linkl-bundle? linkl?
              linklet? faslable-correlated-linklet?)
  to-linklets? : any/c = #f
procedure
(zo-parse [in]) -> (or/c linkl-directory? linkl-bundle?)
  in : input-port? = (current-input-port)
procedure
(zo-marshal-to top out) -> void?
  top : (or/c linkl-directory? linkl-bundle?)
  out : output-port?
procedure
(zo-marshal top) -> bytes?
  top : (or/c linkl-directory? linkl-bundle?)
struct
(struct zo ()
    #:extra-constructor-name make-zo
    #:prefab)
struct
(struct linkl-directory zo (table)
    #:extra-constructor-name make-linkl-directory
    #:prefab)
  table : (hash/c (listof symbol?) linkl-bundle?)
struct
(struct linkl-bundle zo (table)
    #:extra-constructor-name make-linkl-bundle
    #:prefab)
  table : (hash/c (or/c symbol? fixnum?) (or linkl? any/c))
struct
(struct linkl zo (name
                  importss
                  import-shapess
                  exports
                  internals
                  lifts
                  source-names
                  body
                  max-let-depth
                  need-instance-access?)
    #:extra-constructor-name make-linkl
    #:prefab)
  name : symbol?
  importss : (listof (listof symbol?))
  import-shapess : (listof (listof  (or/c #f 'constant 'fixed
                                          function-shape?
                                          struct-shape?)))
  exports : (listof symbol?)
  internals : (listof (or/c symbol? #f))
  lifts : (listof symbol?)
  source-names : (hash/c symbol? symbol?)
  body : (listof (or/c form? any/c))
  max-let-depth : exact-nonnegative-integer?
  need-instance-access? : boolean?
struct
(struct function-shape (arity preserves-marks?)
    #:extra-constructor-name make-function-shape
    #:prefab)
  arity : procedure-arity?
  preserves-marks? : boolean?
struct
(struct struct-shape ()
    #:extra-constructor-name make-struct-shape
    #:prefab)
struct
(struct struct-type-shape struct-shape (field-count authentic?)
    #:extra-constructor-name make-struct-type-shape
    #:prefab)
  field-count : exact-nonnegative-integer?
  authentic? : boolean?
struct
(struct constructor-shape struct-shape (arity)
    #:extra-constructor-name make-constructor-shape
    #:prefab)
  arity : exact-nonnegative-integer?
struct
(struct predicate-shape struct-shape (authentic?)
    #:extra-constructor-name make-predicate-shape
    #:prefab)
  authentic? : boolean?
struct
(struct accessor-shape struct-shape (field-count authentic?)
    #:extra-constructor-name make-accessor-shape
    #:prefab)
  field-count : exact-nonnegative-integer?
  authentic? : boolean?
struct
(struct mutator-shape struct-shape (field-count authentic?)
    #:extra-constructor-name make-mutator-shape
    #:prefab)
  field-count : exact-nonnegative-integer?
  authentic? : boolean?
struct
(struct struct-type-property-shape struct-shape (has-guard?)
    #:extra-constructor-name make-struct-type-property-shape
    #:prefab)
  has-guard? : boolean?
struct
(struct property-predicate-shape struct-shape ()
    #:extra-constructor-name make-property-predicate-shape
    #:prefab)
struct
(struct property-accessor-shape struct-shape ()
    #:extra-constructor-name make-property-accessor-shape
    #:prefab)
struct
(struct struct-other-shape struct-shape ()
    #:extra-constructor-name make-struct-other-shape
    #:prefab)
struct
(struct form zo ()
    #:extra-constructor-name make-form
    #:prefab)
struct
(struct def-values form (ids rhs)
    #:extra-constructor-name make-def-values
    #:prefab)
  ids : (listof toplevel?)
  rhs : (or/c expr? seq? inline-variant? any/c)
struct
(struct inline-variant zo (direct inline)
    #:extra-constructor-name make-inline-variant
    #:prefab)
  direct : expr?
  inline : expr?
struct
(struct expr form ()
    #:extra-constructor-name make-expr
    #:prefab)
struct
(struct lam expr (name
                  flags
                  num-params
                  param-types
                  rest?
                  closure-map
                  closure-types
                  toplevel-map
                  max-let-depth
                  body)
    #:extra-constructor-name make-lam
    #:prefab)
  name : (or/c symbol? vector?)
  flags : (listof (or/c 'preserves-marks 'is-method 'single-result
                        'only-rest-arg-not-used 'sfs-clear-rest-args))
  num-params : exact-nonnegative-integer?
  param-types : (listof (or/c 'val 'ref 'flonum 'fixnum 'extflonum))
  rest? : boolean?
  closure-map : (vectorof exact-nonnegative-integer?)
  closure-types : (listof (or/c 'val/ref 'flonum 'fixnum 'extflonum))
  toplevel-map : (or/c #f (set/c exact-nonnegative-integer?))
  max-let-depth : exact-nonnegative-integer?
  body : (or/c expr? seq? any/c)
struct
(struct closure expr (code gen-id)
    #:extra-constructor-name make-closure
    #:prefab)
  code : lam?
  gen-id : symbol?
struct
(struct case-lam expr (name clauses)
    #:extra-constructor-name make-case-lam
    #:prefab)
  name : (or/c symbol? vector?)
  clauses : (listof lam?)
struct
(struct let-one expr (rhs body type unused?)
    #:extra-constructor-name make-let-one
    #:prefab)
  rhs : (or/c expr? seq? any/c)
  body : (or/c expr? seq? any/c)
  type : (or/c #f 'flonum 'fixnum 'extflonum)
  unused? : boolean?
struct
(struct let-void expr (count boxes? body)
    #:extra-constructor-name make-let-void
    #:prefab)
  count : exact-nonnegative-integer?
  boxes? : boolean?
  body : (or/c expr? seq? any/c)
struct
(struct install-value expr (count pos boxes? rhs body)
    #:extra-constructor-name make-install-value
    #:prefab)
  count : exact-nonnegative-integer?
  pos : exact-nonnegative-integer?
  boxes? : boolean?
  rhs : (or/c expr? seq? any/c)
  body : (or/c expr? seq? any/c)
struct
(struct let-rec expr (procs body)
    #:extra-constructor-name make-let-rec
    #:prefab)
  procs : (listof lam?)
  body : (or/c expr? seq? any/c)
struct
(struct boxenv expr (pos body)
    #:extra-constructor-name make-boxenv
    #:prefab)
  pos : exact-nonnegative-integer?
  body : (or/c expr? seq? any/c)
struct
(struct localref expr (unbox? pos clear? other-clears? type)
    #:extra-constructor-name make-localref
    #:prefab)
  unbox? : boolean?
  pos : exact-nonnegative-integer?
  clear? : boolean?
  other-clears? : boolean?
  type : (or/c #f 'flonum 'fixnum 'extflonum)
struct
(struct toplevel expr (depth pos const? ready?)
    #:extra-constructor-name make-toplevel
    #:prefab)
  depth : exact-nonnegative-integer?
  pos : exact-nonnegative-integer?
  const? : boolean?
  ready? : boolean?
struct
(struct application expr (rator rands)
    #:extra-constructor-name make-application
    #:prefab)
  rator : (or/c expr? seq? any/c)
  rands : (listof (or/c expr? seq? any/c))
struct
(struct branch expr (test then else)
    #:extra-constructor-name make-branch
    #:prefab)
  test : (or/c expr? seq? any/c)
  then : (or/c expr? seq? any/c)
  else : (or/c expr? seq? any/c)
struct
(struct with-cont-mark expr (key val body)
    #:extra-constructor-name make-with-cont-mark
    #:prefab)
  key : (or/c expr? seq? any/c)
  val : (or/c expr? seq? any/c)
  body : (or/c expr? seq? any/c)
struct
(struct seq expr (forms)
    #:extra-constructor-name make-seq
    #:prefab)
  forms : (listof (or/c expr? any/c))
struct
(struct beg0 expr (seq)
    #:extra-constructor-name make-beg0
    #:prefab)
  seq : (listof (or/c expr? seq? any/c))
struct
(struct varref expr (toplevel dummy constant? from-unsafe?)
    #:extra-constructor-name make-varref
    #:prefab)
  toplevel : (or/c toplevel? #t #f symbol?)
  dummy : (or/c toplevel? #f)
  constant? : boolean?
  from-unsafe? : boolean?
struct
(struct assign expr (id rhs undef-ok?)
    #:extra-constructor-name make-assign
    #:prefab)
  id : toplevel?
  rhs : (or/c expr? seq? any/c)
  undef-ok? : boolean?
struct
(struct apply-values expr (proc args-expr)
    #:extra-constructor-name make-apply-values
    #:prefab)
  proc : (or/c expr? seq? any/c)
  args-expr : (or/c expr? seq? any/c)
struct
(struct with-immed-mark expr (key def-val body)
    #:extra-constructor-name make-with-immed-mark
    #:prefab)
  key : (or/c expr? seq? any/c)
  def-val : (or/c expr? seq? any/c)
  body : (or/c expr? seq? any/c)
struct
(struct primval expr (id)
    #:extra-constructor-name make-primval
    #:prefab)
  id : exact-nonnegative-integer?
struct
(struct faslable-correlated-linklet (expr name)
    #:extra-constructor-name make-faslable-correlated-linklet
    #:prefab)
  expr : any/c
  name : symbol?
struct
(struct faslable-correlated (e
                             source
                             position
                             line
                             column
                             span
                             props)
    #:extra-constructor-name make-faslable-correlated
    #:prefab)
  e : any/c
  source : any/c
  position : exact-positive-integer?
  line : exact-positive-integer?
  column : exact-nonnegative-integer?
  span : exact-nonnegative-integer?
  props : (hash/c symbol? any/c)
procedure
(strip-correlated e) -> any/c
  e : any/c
syntax
module-path
option
...
 
     option = mode
            | #:include (mod-spec ...)
            | #:exclude (mod-spec ...)
            | #:submodule-include (submod-spec ...)
            | #:submodule-exclude (submod-spec ...)
            | #:prune-definitions
            | #:dump file
            | #:dump-mi file
            | #:no-demod
               
       mode = #:exe
            | #:dynamic
            | #:static
               
   mod-spec = #:module module-path
            | #:dir dir-path
            | #:collect collect-name
               
submod-spec = identifier
            | (identifier ...)
procedure
(links  dir                                 
        ...                                 
       [#:user? user?                       
        #:user-version user-version         
        #:file file                         
        #:name name                         
        #:root? root?                       
        #:static-root? static-root?         
        #:version-regexp version-regexp     
        #:error error-proc                  
        #:remove? remove?                   
        #:show? show?                       
        #:repair? repair?                   
        #:with-path? with-path?])       -> list?
  dir : path?
  user? : any/c = #t
  user-version : string? = (get-installation-name)
  file : (or/c path-string? #f) = #f
  name : (or/c string? #f) = #f
  root? : any/c = #f
  static-root? : any/c = #f
  version-regexp : (or/c regexp? #f) = #f
  error-proc : (symbol? string? any/c ... . -> . any) = error
  remove? : any/c = #f
  show? : any/c = #f
  repair? : any/c = #f
  with-path? : any/c = #f
procedure
(pack-collections-plt                                            
                       dest                                      
                       name                                      
                       collections                               
                      [#:replace? replace?                       
                       #:at-plt-home? at-home?                   
                       #:test-plt-collects? test?                
                       #:extra-setup-collections collection-list 
                       #:file-filter filter-proc])               
 -> void?
  dest : path-string?
  name : string?
  collections : (listof (listof path-string?))
  replace? : boolean? = #f
  at-home? : boolean? = #f
  test? : boolean? = #t
  collection-list : (listof path-string?) = null
  filter-proc : (path-string? . -> . boolean?) = std-filter
procedure
(pack-collections  dest                        
                   name                        
                   collections                 
                   replace?                    
                   extra-setup-collections     
                  [filter                      
                   at-plt-home?])          -> void?
  dest : path-string?
  name : string?
  collections : (listof (listof path-string?))
  replace? : boolean?
  extra-setup-collections : (listof path-string?)
  filter : (path-string? . -> . boolean?) = std-filter
  at-plt-home? : boolean? = #f
procedure
(pack-plt  dest                                
           name                                
           paths                               
          [#:as-paths as-paths                 
           #:file-filter filter-proc           
           #:encode? encode?                   
           #:file-mode file-mode-sym           
           #:unpack-unit unpack-spec           
           #:collections collection-list       
           #:plt-relative? plt-relative?       
           #:at-plt-home? at-plt-home?         
           #:test-plt-dirs dirs                
           #:requires mod-and-version-list     
           #:conflicts mod-list])          -> void?
  dest : path-string?
  name : string?
  paths : (listof path-string?)
  as-paths : (listof path-string?) = paths
  filter-proc : (path-string? . -> . boolean?) = std-filter
  encode? : boolean? = #t
  file-mode-sym : symbol? = 'file
  unpack-spec : any/c = #f
  collection-list : (listof path-string?) = null
  plt-relative? : any/c = #f
  at-plt-home? : any/c = #f
  dirs : (or/c (listof path-string?) #f) = #f
  mod-and-version-list : (listof (listof path-string?)    = null
                                 (listof exact-integer?))
  mod-list : (listof (listof path-string?)) = null
procedure
(pack  dest               
       name               
       paths              
       collections        
      [filter             
       encode?            
       file-mode          
       unpack-unit        
       plt-relative?      
       requires           
       conflicts          
       at-plt-home?]) -> void?
  dest : path-string?
  name : string?
  paths : (listof path-string?)
  collections : (listof path-string?)
  filter : (path-string? . -> . boolean?) = std-filter
  encode? : boolean? = #t
  file-mode : symbol? = 'file
  unpack-unit : any/c = #f
  plt-relative? : boolean? = #t
  requires : (listof (listof path-string?)    = null
                     (listof exact-integer?))
  conflicts : (listof (listof path-string?)) = null
  at-plt-home? : boolean? = #f
procedure
(std-filter p) -> boolean?
  p : path-string?
procedure
(mztar  path                   
       [#:as-path as-path]     
        output                 
        filter                 
        file-mode)         -> void?
  path : path-string?
  as-path : path-string? = path
  output : output-port?
  filter : (path-string? . -> . boolean?)
  file-mode : (or/c 'file 'file-replace)
procedure
(unpack  archive                        
        [main-collects-parent-dir       
         print-status                   
         get-target-directory           
         force?                         
         get-target-plt-directory]) -> void?
  archive : path-string?
  main-collects-parent-dir : path-string? = (current-directory)
  print-status : (string? . -> . any)
               = (lambda (x) (printf "~a\n" x))
  get-target-directory : (-> path-string?)
                       = (lambda () (current-directory))
  force? : any/c = #f
  get-target-plt-directory : (path-string?
                              path-string?
                              (listof path-string?)
                              . -> . path-string?)
                           = (lambda (preferred-dir main-dir options)
                               preferred-dir)
procedure
(fold-plt-archive archive            
                  on-config-fn       
                  on-setup-unit      
                  on-directory       
                  on-file            
                  initial-value) -> any/c
  archive : path-string?
  on-config-fn : (any/c any/c . -> . any/c)
  on-setup-unit : (any/c input-port? any/c . -> . any/c)
  on-directory : ((or/c path-string?
                        (list/c (or/c 'collects 'doc 'lib 'include)
                                path-string?))
                  any/c
                  . -> . any/c)
  on-file : (or/c ((or/c path-string?
                         (list/c (or/c 'collects 'doc 'lib 'include)
                                 path-string?))
                   input-port?
                   any/c
                   . -> . any/c)
                  ((or/c path-string?
                         (list/c (or/c 'collects 'doc 'lib 'include)
                                 path-string?))
                   input-port?
                   (or/c 'file 'file-replace)
                   any/c
                   . -> . any/c))
  initial-value : any/c
procedure
(xform  quiet?                          
        input-file                      
        output-file                     
        include-dirs                    
       [#:keep-lines? keep-lines?]) -> any/c
  quiet? : any/c
  input-file : path-string?
  output-file : path-string?
  include-dirs : (listof path-string?)
  keep-lines? : boolean? = #f
procedure
(test-log! result) -> void?
  result : any/c
procedure
(test-report [#:display? display? 
              #:exit? exit?])     
 -> (cons/c exact-nonnegative-integer?
            exact-nonnegative-integer?)
  display? : any/c = #f
  exit? : any/c = #f
parameter
(test-log-enabled?) -> boolean?
(test-log-enabled? enabled?) -> void?
  enabled? : any/c
 = #t
parameter
(current-test-invocation-directory) -> (or/c #f path?)
(current-test-invocation-directory path) -> void?
  path : (or/c #f path-string?)
 = #f
parameter
(current-command-name) -> (or/c string? #f)
(current-command-name name) -> void?
  name : (or/c string? #f)
procedure
(short-program+command-name) -> string?
procedure
(program+command-name) -> string?
procedure
(all-tools)
 -> (hash/c string? (list/c string? module-path? string? (or/c real? #f)))
