14 lines
396 B
Racket
14 lines
396 B
Racket
#lang racket/base
|
|
(require "dirs.ss" "path-relativize.ss")
|
|
|
|
(provide path->main-collects-relative
|
|
main-collects-relative->path)
|
|
|
|
(define-values (path->main-collects-relative
|
|
main-collects-relative->path)
|
|
(make-relativize find-collects-dir
|
|
'collects
|
|
'path->main-collects-relative
|
|
'main-collects-relative->path))
|
|
|