- Optimized the new "product" implementation to improve performance & memory consumption.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/lux/analyser/meta.clj b/src/lux/analyser/meta.clj
index fb75003e8..185391678 100644
--- a/src/lux/analyser/meta.clj
+++ b/src/lux/analyser/meta.clj
@@ -28,10 +28,14 @@
       (meta-get ident dict*))
 
     (&/$Nil)
-    &/None$))
+    &/None$
+
+    _
+    (assert false (prn-str (&/adt->text ident)
+                           (&/adt->text dict)))))
 
 (do-template [<name> <tag-name>]
-  (def <name> (&/T tag-prefix <tag-name>))
+  (def <name> (&/T [tag-prefix <tag-name>]))
 
   type?-tag   "type?"
   alias-tag   "alias"