14 lines
373 B
Scheme
14 lines
373 B
Scheme
(module main-doc mzscheme
|
|
(require "dirs.ss"
|
|
"path-relativize.ss")
|
|
|
|
(provide path->main-doc-relative
|
|
main-doc-relative->path)
|
|
|
|
(define-values (path->main-doc-relative
|
|
main-doc-relative->path)
|
|
(make-relativize find-doc-dir 'doc
|
|
'path->main-doc-relative
|
|
'main-doc-relative->path)))
|
|
|