Hack to allow external module paths to be symbols instead of strings

This commit is contained in:
Tony Garnock-Jones 2023-02-02 21:56:12 +01:00
parent c5974e0b00
commit 9559558831
1 changed files with 2 additions and 0 deletions

View File

@ -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)