From 88b22b2dbfc6eabeb933aca85d06991efa6253be Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 19 Jun 2017 20:01:31 -0400 Subject: - Fixed a bug when generating the aliases of modules involving relative addressing ("." and ".."). --- stdlib/source/lux.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'stdlib/source/lux.lux') 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 - [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}}))) -- cgit v1.2.3