From abc5c5293603229b447b8b5dfa7f3275571ad982 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 15 Dec 2020 22:05:05 -0400
Subject: Compiling "lux syntax char case!" with TABLESWITCH instead of
 LOOKUPSWITCH.

---
 stdlib/source/program/aedifex/artifact/extension.lux | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact/extension.lux')

diff --git a/stdlib/source/program/aedifex/artifact/extension.lux b/stdlib/source/program/aedifex/artifact/extension.lux
index 78939260a..e108a3727 100644
--- a/stdlib/source/program/aedifex/artifact/extension.lux
+++ b/stdlib/source/program/aedifex/artifact/extension.lux
@@ -1,7 +1,7 @@
 (.module:
-  [lux #*
+  [lux (#- type)
    [data
-    [text
+    ["." text
      ["%" format (#+ format)]]]
    [macro
     ["." template]]]
@@ -18,6 +18,10 @@
   (-> //.Type Extension)
   (|>> (format ..separator)))
 
+(def: #export type
+  (-> Extension //.Type)
+  (text.replace-all ..separator ""))
+
 (template [<name>]
   [(def: #export <name>
      Extension
-- 
cgit v1.2.3