diff options
| author | Eduardo Julian | 2019-02-11 00:28:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-11 00:28:08 -0400 |
| commit | 6eadb8ba7c8a5eb268cd7a8d13bd63dcaa5f449f (patch) | |
| tree | f6f936c09e20147a8577b47c7c55e29e1ac10a2e /stdlib/source/lux.lux | |
| parent | a7ee9bfcaf9d85105b2ee0e34c203bfc86d1ce15 (diff) | |
Added the special # syntax for referring to the module's alias when opening structures.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux.lux | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index e0717c88c..9d3ca2032 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -4850,9 +4850,10 @@ _ (fail "Wrong syntax for refer"))) -(def: (refer-to-code module-name [r-defs r-opens]) - (-> Text Refer Code) - (let [localizations (: (List Code) +(def: (refer-to-code module-name module-alias' [r-defs r-opens]) + (-> Text (Maybe Text) Refer Code) + (let [module-alias (..default module-name module-alias') + localizations (: (List Code) (case r-defs #All (list (' #*)) @@ -4866,7 +4867,8 @@ #Nothing (list))) openings (list/map (function (_ [alias structs]) - (form$ (list& (text$ alias) (list/map local-identifier$ structs)))) + (form$ (list& (text$ (..replace-all "#" module-alias alias)) + (list/map local-identifier$ structs)))) r-opens)] (` (..refer (~ (text$ module-name)) (~+ localizations) @@ -4906,7 +4908,7 @@ imports) =refers (list/map (: (-> Importation Code) (function (_ [m-name m-alias =refer]) - (refer-to-code m-name =refer))) + (refer-to-code m-name m-alias =refer))) imports) =meta (process-def-meta (list& [(` #.imports) (` [(~+ =imports)])] _meta)) |