Cleaner test reporting.

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