aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source
diff options
context:
space:
mode:
authorEduardo Julian2017-06-19 20:01:31 -0400
committerEduardo Julian2017-06-19 20:01:31 -0400
commit88b22b2dbfc6eabeb933aca85d06991efa6253be (patch)
tree7baa14f2649f553d93d597e6f795e9825c4c8bd3 /stdlib/source
parentf418f51ef28b7d357140b477af2db8b3b6854eb1 (diff)
- Fixed a bug when generating the aliases of modules involving relative addressing ("." and "..").
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux.lux6
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}})))