/usr/share/racket/collects/compiler/cm-accomplice.rkt is in racket-common 6.1-4.
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 | #lang racket/base
(provide register-external-file
register-external-module)
(define (register-external-file f)
(register-external 'register-external-file f #f))
(define (register-external-module f)
(register-external 'register-external-module f #t))
(define cm-accomplice-logger (make-logger 'cm-accomplice
(current-logger)))
(define (register-external who f module?)
(unless (and (path? f) (complete-path? f))
(raise-type-error who "complete path" f))
(log-message cm-accomplice-logger
'info
(format "file dependency: ~s" f)
`#s(file-dependency ,f ,module?)))
|