27 lines
903 B
Scheme
27 lines
903 B
Scheme
#lang scheme/base
|
|
|
|
(require scheme/contract
|
|
"private/modcollapse-noctc.ss")
|
|
|
|
(define simple-rel-to-module-path-v/c
|
|
(or/c (and/c module-path?
|
|
(or/c
|
|
symbol?
|
|
(cons/c (symbols 'lib) any/c)
|
|
(cons/c (symbols 'file) any/c)
|
|
(cons/c (symbols 'planet) any/c)
|
|
(cons/c (symbols 'quote) any/c)))
|
|
path?))
|
|
|
|
(define rel-to-module-path-v/c
|
|
(or/c simple-rel-to-module-path-v/c
|
|
path?
|
|
(-> simple-rel-to-module-path-v/c)))
|
|
|
|
(provide/contract
|
|
[collapse-module-path ((or/c module-path? path?) rel-to-module-path-v/c
|
|
. -> . simple-rel-to-module-path-v/c)]
|
|
[collapse-module-path-index ((or/c symbol? module-path-index?)
|
|
rel-to-module-path-v/c
|
|
. -> . simple-rel-to-module-path-v/c)])
|