From e3dc47dafccb1d21a5c162e4329afd72ddb00650 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 19 Jan 2022 16:43:04 -0400
Subject: Cleaner test reporting.

---
 stdlib/source/library/lux.lux | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

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
-- 
cgit v1.2.3