From edc3f1103f1c2f2ae128c8fb7e810ab0b3733b50 Mon Sep 17 00:00:00 2001
From: s-ol <s+removethis@s-ol.nu>
Date: Thu, 11 Nov 2021 16:18:21 +0100
Subject: auto-name Op and Builtin classes for better debugging

---
 alv/result/const.moon | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/alv/result/const.moon b/alv/result/const.moon
index 78fa25b..e4367e7 100644
--- a/alv/result/const.moon
+++ b/alv/result/const.moon
@@ -189,6 +189,11 @@ class Constant extends Result
   -- @tparam table args table with keys `value` and `meta`
   -- @treturn Constant
   @meta: (args) ->
+    if args.meta and args.meta.name and
+       type(args.value) == "table" and
+       args.value and args.value.__class and args.value.__parent
+      args.value.__name = args.meta.name
+
     with Constant.wrap args.value
       .meta = args.meta if args.meta
 
-- 
cgit v1.2.3