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))
|
||||
(let* ((namespace-str (substring namespace=path 0 i))
|
||||
(path-str (substring namespace=path (+ i 1))))
|
||||
(when (string-prefix? path-str ":")
|
||||
(set! path-str (string->symbol (substring path-str 1))))
|
||||
(set! additional-modules
|
||||
(cons (list (map string->symbol (string-split namespace-str "."))
|
||||
path-str)
|
||||
|
|
Loading…
Reference in New Issue