diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux.lux | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 4ae552aba..8bd316fee 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -1501,11 +1501,15 @@ (-> Text Text Text) ("lux text concat" x y)) +(def:''' .private symbol_separator + Text + ".") + (def:''' .private (symbol#encoded full_name) (-> Symbol Text) (let' [[module name] full_name] ({"" name - _ ($_ text#composite module "." name)} + _ ($_ text#composite module ..symbol_separator name)} module))) (def:''' .private (global_symbol full_name state) @@ -2197,9 +2201,7 @@ (text#encoded value) [_ {#Symbol [module name]}] - (if (text#= "" module) - name - ($_ text#composite module "." name)) + (symbol#encoded [module name]) [_ {#Form xs}] ($_ text#composite "(" (|> xs |