Hack to allow external module paths to be symbols instead of strings
This commit is contained in:
parent
c5974e0b00
commit
9559558831
|
@ -136,6 +136,8 @@
|
||||||
(error '--module "Argument must be Namespace=path: ~v" namespace=path))
|
(error '--module "Argument must be Namespace=path: ~v" namespace=path))
|
||||||
(let* ((namespace-str (substring namespace=path 0 i))
|
(let* ((namespace-str (substring namespace=path 0 i))
|
||||||
(path-str (substring namespace=path (+ i 1))))
|
(path-str (substring namespace=path (+ i 1))))
|
||||||
|
(when (string-prefix? path-str ":")
|
||||||
|
(set! path-str (string->symbol (substring path-str 1))))
|
||||||
(set! additional-modules
|
(set! additional-modules
|
||||||
(cons (list (map string->symbol (string-split namespace-str "."))
|
(cons (list (map string->symbol (string-split namespace-str "."))
|
||||||
path-str)
|
path-str)
|
||||||
|
|
Loading…
Reference in New Issue