From 27d0955180c137813af1dcc36fe4db0ab25d21a8 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 5 Aug 2018 01:57:38 -0400 Subject: Some small improvements and fixes. --- stdlib/source/lux.lux | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'stdlib/source/lux.lux') diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 4f48518a1..793cf5a4d 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -5547,7 +5547,7 @@ ["Text"]) (#Named _ type') - type' + (flatten-alias type') _ type)) @@ -5576,7 +5576,9 @@ (case token [_ (#Identifier [def-prefix def-name])] (if (text/= "" def-prefix) - (:: Monad return token) + (do Monad + [current-module current-module-name] + (anti-quote-def [current-module def-name])) (anti-quote-def [def-prefix def-name])) (^template [] -- cgit v1.2.3