suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
16b15c89f7
racket/collects/tests/racket/moddep.rktl
Matthew Flatt 9ba663aa77 preserve submoduleness in module path index for expanded submodules 
The preserved path is exposed by a new `module-path-index-submodule'
function, and `module-path-index-join' now accepts an optional
submodule path.

Also, fixed a problem with `collapse-module-path-index' when
a module path indx is built on a resolved module path that
is a submodule path.

In addition to the main repair, `collapse-module-path[-index]' is
correctly documented to allow '(quote <sym>) rel-to paths.

Finally, `collapse-module-path-index' changed to use a symbolic
resolved module path that appears as the base of a module path
index, rather than falling back to the given rel-to path. It's
possble that the old beavior was intentional, but it wasn't tested,
and it seems more likely to have been a bug.

Closes PR 12724
2012-04-24 21:10:28 -06:00

347 lines
18 KiB
Racket
Raw Blame History

;; FIXME: this file needs to test resolve-module-path for planet paths
(load-relative "loadtest.rktl")
(Section 'moddep)
(require syntax/moddep)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; resolve-module-path[-index]
(define (test-rmp expect path rel-to)
(test expect resolve-module-path path rel-to)
(unless (and (pair? path) (eq? 'submod (car path)))
(test `(submod ,expect a b) resolve-module-path `(submod ,path a b) rel-to)
(test `(submod ,expect a b) resolve-module-path `(submod ,path a c ".." b) rel-to)
(test expect resolve-module-path `(submod ,path) rel-to)
(when rel-to
(test expect collapse-module-path path (if (procedure? rel-to)
(lambda () `(submod ,(rel-to) a b))
`(submod ,rel-to a b)))))
(let ([pi-rel-to (if (or (path? rel-to)
(and (pair? rel-to)
(eq? (car rel-to) 'submod)
(path? (cadr rel-to))))
rel-to
(build-path (current-directory) "self"))])
(test expect resolve-module-path-index
(module-path-index-join path (module-path-index-join #f #f))
pi-rel-to)
(unless (and (pair? path)
(eq? (car path) 'submod)
(or (equal? (cadr path) ".")
(equal? (cadr path) "..")))
(test expect resolve-module-path-index
(module-path-index-join path
(module-path-index-join
"other.ss"
(module-path-index-join #f #f)))
pi-rel-to))))
(test-rmp (build-path (current-directory) "apple.rkt") "apple.ss" #f)
(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" #f)
(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" (build-path (current-directory) "x.rkt"))
(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" (lambda () (build-path (current-directory) "x.rkt")))
(test-rmp (build-path (current-directory) 'up "apple.rkt") "../apple.rkt" #f)
(test-rmp (build-path (current-directory) 'up 'up "apple.rkt") "../../apple.rkt" #f)
(test-rmp (build-path (current-directory) 'same "apple.rkt") "./apple.rkt" #f)
(test-rmp (build-path (current-directory) "down" "apple.rkt") "down/apple.rkt" #f)
(test (build-path (current-directory) 'up 'up "apple.rkt")
resolve-module-path-index
(module-path-index-join "../apple.rkt"
(module-path-index-join "../other.rkt"
(module-path-index-join #f #f)))
(build-path (current-directory) "f.rkt"))
(test (build-path (current-directory) "only.rkt")
resolve-module-path-index
(module-path-index-join #f #f)
(build-path (current-directory) "only.rkt"))
(let ([mzlib (collection-path "mzlib")]
[syntax (collection-path "syntax")])
(test-rmp (build-path mzlib "x.rkt") '(lib "x.ss") #f)
(test-rmp (build-path mzlib "x.rkt") '(lib "x.ss" "mzlib") #f)
(test-rmp (build-path syntax "x.rkt") '(lib "x.ss" "syntax") #f)
(test-rmp (build-path syntax "private" "x.rkt") '(lib "x.ss" "syntax" "private") #f)
(test-rmp (build-path (current-directory) "x.rkt") `(file ,(path->string (build-path (current-directory) "x.ss"))) #f)
(test-rmp (build-path (current-directory) "x.rkt") (build-path (current-directory) "x.ss") #f)
(test-rmp (build-path (current-directory) "x.rkt") (build-path "x.ss") #f)
(test-rmp `(submod ,(build-path mzlib "y.rkt") n) '(submod "y.rkt" n) `(submod ,(build-path mzlib "x.rkt") q z))
(test-rmp `(submod ,(build-path mzlib "x.rkt") q) '(submod "..") `(submod ,(build-path mzlib "x.rkt") q z))
(test-rmp `(submod ,(build-path mzlib "x.rkt") q) '(submod "." "..") `(submod ,(build-path mzlib "x.rkt") q z))
(test-rmp (build-path mzlib "x.rkt") '(submod "." ".." "..") `(submod ,(build-path mzlib "x.rkt") q z))
(test-rmp (build-path mzlib "x.rkt") '(submod ".." "..") `(submod ,(build-path mzlib "x.rkt") q z))
(void))
(err/rt-test (resolve-module-path "apple.ss" 'no))
(err/rt-test (resolve-module-path "/apple.ss" #f))
(err/rt-test (resolve-module-path "apple.ss/" #f))
(err/rt-test (resolve-module-path "app\u00E9le.ss" #f))
(err/rt-test (resolve-module-path-index "apple.ss" #f))
(err/rt-test (resolve-module-path-index (module-path-index-join #f #f) #f) exn:fail?)
(when (eq? (system-path-convention-type) 'unix)
(test (expand-user-path "~/x.rkt") resolve-module-path '(file "~/x.rkt") #f))
(test `(submod ,(build-path (current-directory) "x.rkt") sub2)
resolve-module-path-index
(module-path-index-join `(submod ".." sub2)
(module-path-index-join #f #f '(sub1)))
(build-path (current-directory) "x.rkt"))
(test `(submod ,(build-path (current-directory) "x.rkt") sub3 sub2)
resolve-module-path-index
(module-path-index-join `(submod ".." sub2)
(module-path-index-join #f #f '(sub1)))
`(submod ,(build-path (current-directory) "x.rkt") sub3))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; collapse-module-path[-index]
(define (test-cmp expect path rel-to)
(test expect collapse-module-path path rel-to)
(unless (and (pair? path) (eq? 'submod (car path)))
(test `(submod ,expect a b) collapse-module-path `(submod ,path a b) rel-to)
(test `(submod ,expect a b) collapse-module-path `(submod ,path a c ".." b) rel-to)
(test expect collapse-module-path `(submod ,path) rel-to)
(unless (symbol? rel-to)
(test expect collapse-module-path path (if (procedure? rel-to)
(lambda () `(submod ,(rel-to) a b))
`(submod ,rel-to a b)))))
(test expect collapse-module-path-index
(module-path-index-join path (module-path-index-join #f #f))
rel-to)
(unless (and (pair? path)
(eq? 'submod (car path))
(or (equal? (cadr path) ".")
(equal? (cadr path) "..")))
(test expect collapse-module-path-index
(module-path-index-join path
(module-path-index-join
"other.ss"
(module-path-index-join #f #f)))
rel-to)))
(test-cmp '(lib "nonesuch/x.rkt") "x.rkt" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.rkt") "x.ss" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.scm") "x.scm" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.rkt") "x.rkt" (lambda () '(lib "y.ss" "nonesuch")))
(test-cmp '(lib "nonesuch/x.rkt") "x.ss" (lambda () '(lib "y.ss" "nonesuch")))
(test-cmp '(lib "nonesuch/x.scm") "x.scm" (lambda () '(lib "y.ss" "nonesuch")))
(test-cmp '(lib "nonesuch/down/x.rkt") "down/x.rkt" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/down/x.rkt") "down/x.ss" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/down/x.scm") "down/x.scm" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "mzlib/x.rkt") '(lib "x.rkt") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "mzlib/x.rkt") '(lib "x.ss") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "mzlib/x.scm") '(lib "x.scm") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.rkt") "../x.rkt" '(lib "y.ss" "nonesuch/private"))
(test-cmp '(lib "nonesuch/x.rkt") "../x.ss" '(lib "y.ss" "nonesuch/private"))
(test-cmp '(lib "nonesuch/x.scm") "../x.scm" '(lib "y.ss" "nonesuch/private"))
(test-cmp '(lib "nonesuch/x.rkt") "../x.rkt" '(lib "private/y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.rkt") "../x.ss" '(lib "private/y.ss" "nonesuch"))
(test-cmp '(lib "nonesuch/x.scm") "../x.scm" '(lib "private/y.ss" "nonesuch"))
(test-cmp '(lib "alsonot/private/x.rkt") '(lib "x.rkt" "alsonot" "private") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "alsonot/private/x.rkt") '(lib "x.ss" "alsonot" "private") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "alsonot/private/x.scm") '(lib "x.scm" "alsonot" "private") '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "x" "nonesuch") "x" '(lib "y.ss" "nonesuch"))
(test-cmp '(lib "x" "nonesuch") "x" 'nonesuch/y)
(test-cmp '(lib "x" "nonesuch") "x" 'nonesuch)
(test-cmp '(lib "nonesuch/y.rkt") 'nonesuch/y (current-directory))
(test-cmp '(lib "mzlib/nonesuch.rkt") '(lib "nonesuch.rkt") (current-directory))
(test-cmp '(lib "mzlib/nonesuch.rkt") '(lib "nonesuch.ss") (current-directory))
(test-cmp '(lib "mzlib/nonesuch.scm") '(lib "nonesuch.scm") (current-directory))
(test-cmp (build-path (current-directory) "x.rkt") "x.rkt" (build-path (current-directory) "other"))
(test-cmp (build-path (current-directory) "x.rkt") "x.ss" (build-path (current-directory) "other"))
(test-cmp (build-path (current-directory) "x.scm") "x.scm" (build-path (current-directory) "other"))
(test-cmp (build-path (current-directory) "x.rkt")
"x.rkt"
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp (build-path (current-directory) "x.rkt")
"x.ss"
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp (build-path (current-directory) "x.scm")
"x.scm"
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp (build-path (current-directory) "x.rkt")
(build-path "x.rkt")
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp (build-path (current-directory) "x.rkt")
(build-path "x.ss")
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp (build-path (current-directory) "x.scm")
(build-path "x.scm")
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp '(planet "x.rkt" ("usr" "pkg.plt" 1)) "x.rkt" '(planet "y.ss" ("usr" "pkg.plt" 1)))
(test-cmp '(planet "x.rkt" ("usr" "pkg.plt" 1)) "x.ss" '(planet "y.ss" ("usr" "pkg.plt" 1)))
(test-cmp '(planet "x.scm" ("usr" "pkg.plt" 1)) "x.scm" '(planet "y.ss" ("usr" "pkg.plt" 1)))
(test-cmp '(planet "x.rkt" ("usr" "pkg.plt" 1 0)) "x.rkt" (lambda () '(planet "y.ss" ("usr" "pkg.plt" 1 0))))
(test-cmp '(planet "x.rkt" ("usr" "pkg.plt" 1 0)) "x.ss" (lambda () '(planet "y.ss" ("usr" "pkg.plt" 1 0))))
(test-cmp '(planet "x.scm" ("usr" "pkg.plt" 1 0)) "x.scm" (lambda () '(planet "y.ss" ("usr" "pkg.plt" 1 0))))
(test-cmp '(planet "x.rkt" ("a" "p.plt" 1) "path") "path/x.rkt" '(planet "z.ss" ("a" "p.plt" 1)))
(test-cmp '(planet "x.rkt" ("a" "p.plt" 1) "path") "path/x.ss" '(planet "z.ss" ("a" "p.plt" 1)))
(test-cmp '(planet "x.scm" ("a" "p.plt" 1) "path") "path/x.scm" '(planet "z.ss" ("a" "p.plt" 1)))
(test-cmp '(planet "x.rkt" ("a" "p.plt" 2) "path" "qq") "qq/x.rkt" '(planet "path/z.ss" ("a" "p.plt" 2)))
(test-cmp '(planet "x.rkt" ("a" "p.plt" 2) "path" "qq") "qq/x.ss" '(planet "path/z.ss" ("a" "p.plt" 2)))
(test-cmp '(planet "x.scm" ("a" "p.plt" 2) "path" "qq") "qq/x.scm" '(planet "path/z.ss" ("a" "p.plt" 2)))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "o.ss" ("a" "q.plt" 54 3)))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(planet "o.ss" ("a" "q.plt" 54 3)))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2)) '(planet "x.scm" ("m" "z.plt" 2)) '(planet "o.ss" ("a" "q.plt" 54 3)))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.rkt" ("m" "z.plt" 2)) '(lib "o.ss" "nonesuch"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(lib "o.ss" "nonesuch"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2)) '(planet "x.scm" ("m" "z.plt" 2)) '(lib "o.ss" "nonesuch"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.rkt" ("m" "z.plt" 2)) '(file "q.ss"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(file "q.ss"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2)) '(planet "x.scm" ("m" "z.plt" 2)) '(file "q.ss"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.rkt" ("m" "z.plt" 2)) (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2)) '(planet "x.scm" ("m" "z.plt" 2)) (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "m/z:2/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2)) '(planet "m/z:2/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2)) '(planet "m/z:2/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 5)) '(planet "m/z:2:5/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 5)) '(planet "m/z:2:5/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 5)) '(planet "m/z:2:5/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (= 5))) '(planet "m/z:2:=5/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (= 5))) '(planet "m/z:2:=5/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 (= 5))) '(planet "m/z:2:=5/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 5)) '(planet "m/z:2:>=5/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 5)) '(planet "m/z:2:>=5/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 5)) '(planet "m/z:2:>=5/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (- 5))) '(planet "m/z:2:<=5/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (- 5))) '(planet "m/z:2:<=5/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 (- 5))) '(planet "m/z:2:<=5/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.scm") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.rkt") (build-path "yikes"))
(test-cmp '(planet "x.rkt" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.ss") (build-path "yikes"))
(test-cmp '(planet "x.scm" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.scm") (build-path "yikes"))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.rkt" '(planet "doc/stuff.ss" ("untyped" "unlib.plt" 3 (= 6))))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.ss" '(planet "doc/stuff.ss" ("untyped" "unlib.plt" 3 (= 6))))
(test-cmp '(planet "utils.scm" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.scm" '(planet "doc/stuff.ss" ("untyped" "unlib.plt" 3 (= 6))))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.rkt" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.ss" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.scm" ("untyped" "unlib.plt" 3 (= 6)))
"../utils.scm" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.rkt" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.ss" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.scm" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.scm" '(planet "stuff.ss" ("untyped" "unlib.plt" 3 (= 6)) "doc"))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.rkt" '(planet untyped/unlib:3:=6/doc/stuff))
(test-cmp '(planet "utils.rkt" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.ss" '(planet untyped/unlib:3:=6/doc/stuff))
(test-cmp '(planet "utils.scm" ("untyped" "unlib.plt" 3 (= 6)) "down")
"../down/utils.scm" '(planet untyped/unlib:3:=6/doc/stuff))
(test-cmp (build-path 'same "x.rkt") "x.rkt" (build-path 'same))
(test-cmp (build-path 'same "x.rkt") "x.ss" (build-path 'same))
(test-cmp (build-path 'same "x.scm") "x.scm" (build-path 'same))
(test-cmp ''a '(submod ".") ''a)
(test-cmp '(submod 'a x y) '(submod "." x y) ''a)
(test-cmp '(submod 'a q z x y) '(submod "." x y) '(submod 'a q z))
(test-cmp '(submod 'a q y) '(submod "." ".." y) '(submod 'a q z))
(test-cmp '(submod 'a q y) '(submod ".." y) '(submod 'a q z))
(test-cmp '(submod 'a q) '(submod "..") '(submod 'a q z))
(test-cmp '(submod 'a q y) '(submod ".." y) '(submod 'a q z))
(test-cmp ''a '(submod "." ".." "..") '(submod 'a q z))
(test-cmp `(submod ,(build-path 'same) x y) '(submod "." x y) (build-path 'same))
(test '(lib "bar/foo.rkt")
collapse-module-path-index
(module-path-index-join '(lib "foo.ss" "bar") (make-resolved-module-path 'nowhere))
(current-directory))
(test (build-path (find-system-path 'temp-dir) "data.rkt")
collapse-module-path-index
(module-path-index-join '"data.ss" (make-resolved-module-path
(build-path (find-system-path 'temp-dir) "prog.ss")))
(current-directory))
;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string):
(let ([dir (build-path (current-directory) (bytes->path #"\xFF"))])
(test-cmp (build-path dir "x.rkt")
"x.ss"
(build-path dir "other")))
(test-cmp (build-path (current-directory) (bytes->path #"\xFF"))
(bytes->path #"\xFF")
`(file ,(path->string (build-path (current-directory) "other"))))
(test '(lib "alsonot/x.rkt")
collapse-module-path-index
(module-path-index-join "x.ss"
(module-path-index-join
'(lib "y.ss" "alsonot")
(module-path-index-join #f #f)))
'(lib "w.ss" "nonesuch"))
(err/rt-test (collapse-module-path "apple.ss" '(no)))
(err/rt-test (collapse-module-path "/apple.ss" (current-directory)))
(err/rt-test (collapse-module-path-index "apple.ss" (current-directory)))
(test '(submod 'z sub2)
collapse-module-path-index
(module-path-index-join `(submod ".." sub2)
(make-resolved-module-path
'(z sub1)))
''a)
(test `(submod ,(build-path (find-system-path 'temp-dir) "z") sub2)
collapse-module-path-index
(module-path-index-join `(submod ".." sub2)
(make-resolved-module-path
(list (build-path (find-system-path 'temp-dir) "z") 'sub1)))
''a)
(test `(submod 'a sub2)
collapse-module-path-index
(module-path-index-join `(submod ".." sub2)
(module-path-index-join #f #f '(sub1)))
''a)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs)
Reference in New Issue View Git Blame Copy Permalink