13 lines
348 B
Racket
13 lines
348 B
Racket
#lang racket/base
|
|
|
|
(provide module-to-profile)
|
|
|
|
(define (module-to-profile file)
|
|
;; check if there's a main submodule
|
|
(define file-path `(file ,file))
|
|
(define main-path `(submod ,file-path main))
|
|
(dynamic-require file-path (void)) ; visit the module, but don't run it
|
|
(if (module-declared? main-path #f)
|
|
main-path
|
|
file-path))
|