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