diff options
| author | Eduardo Julian | 2018-08-05 01:57:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-05 01:57:38 -0400 |
| commit | 27d0955180c137813af1dcc36fe4db0ab25d21a8 (patch) | |
| tree | 404e99333fddc0091a24e541412c0d776136aaa1 /stdlib/source/lux.lux | |
| parent | 221cf3ea1bd48a8c678d3447558ea94631114ebc (diff) | |
Some small improvements and fixes.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux.lux | 6 |
1 files changed, 4 insertions, 2 deletions
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<Meta> return token) + (do Monad<Meta> + [current-module current-module-name] + (anti-quote-def [current-module def-name])) (anti-quote-def [def-prefix def-name])) (^template [<tag>] |