/usr/share/racket/collects/compiler/cm-accomplice.rkt is in racket-common 6.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #lang racket/base
(provide register-external-file
register-external-module)
(define (register-external-file f #:indirect? [indirect? #f])
(register-external 'register-external-file f #f indirect?))
(define (register-external-module f #:indirect? [indirect? #f])
(register-external 'register-external-module f #t indirect?))
(define (register-external who f module? indirect?)
(unless (and (path? f) (complete-path? f))
(raise-type-error who "complete path" f))
(log-message (current-logger)
'info
'cm-accomplice
(format "file dependency: ~s" f)
(if indirect?
`#s((file-dependency/options file-dependency 2) ,f ,module?
#hasheq((indirect . #t)))
`#s(file-dependency ,f ,module?))))
|