diff options
author | Eduardo Julian | 2017-06-19 20:01:31 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-06-19 20:01:31 -0400 |
commit | 88b22b2dbfc6eabeb933aca85d06991efa6253be (patch) | |
tree | 7baa14f2649f553d93d597e6f795e9825c4c8bd3 | |
parent | f418f51ef28b7d357140b477af2db8b3b6854eb1 (diff) |
- Fixed a bug when generating the aliases of modules involving relative addressing ("." and "..").
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index a225683e0..8ff78e0a1 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -4049,15 +4049,15 @@ #import-refer {#refer-defs referral #refer-open openings}}))) - (^ [_ (#Tuple (list& [_ (#Symbol "" m-name)] extra))]) + (^ [_ (#Tuple (list& [_ (#Symbol "" raw-m-name)] extra))]) (do Monad<Lux> - [m-name (clean-module m-name) + [m-name (clean-module raw-m-name) referral+extra (parse-short-referrals extra) #let [[referral extra] referral+extra] openings+extra (parse-short-openings extra) #let [[openings extra] openings+extra]] (wrap (list {#import-name m-name - #import-alias (#;Some m-name) + #import-alias (#;Some raw-m-name) #import-refer {#refer-defs referral #refer-open openings}}))) |