From ead528be3dc8c93cf0ecb0e16fa33bc4281d462d Mon Sep 17 00:00:00 2001
From: Matway Burkow <2745204+MatwayBurkow@users.noreply.github.com>
Date: Wed, 15 Mar 2023 23:40:33 +0300
Subject: [PATCH] Return back debug schema prefix

---
 debugWriter.mpl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/debugWriter.mpl b/debugWriter.mpl
index e99fa22..6b259f6 100644
--- a/debugWriter.mpl
+++ b/debugWriter.mpl
@@ -266,9 +266,9 @@ getDbgSchemaNameType: [
 
     resultDBG "" = [
       mplStruct.fields.size 0 > [0 mplStruct.fields.at.nameInfo processor.specialNames.emptyNameInfo = ~] && [
-        "object" toString @resultDBG set
+        "dict" toString @resultDBG set
       ] [
-        "list" toString @resultDBG set
+        "tuple" toString @resultDBG set
       ] if
     ] when
   ] when
@@ -280,6 +280,10 @@ getDebugType: [
   refToVar: processor: block:;;;
   result: hasSchemaName: refToVar @processor getDbgSchemaNameType;;
   hasSchemaName ~ [
+    result.size 0 = ~ [
+      "." @result.cat
+    ] when
+
     dbgType: refToVar @processor getDbgType;
     splitted: dbgType splitString;
     splitted.success [
@@ -291,7 +295,7 @@ getDebugType: [
       ("Wrong dbgType name encoding" splitted.chars assembleString) assembleString @processor block compilerError
     ] if
 
-    splitted.chars assembleString !result
+    splitted.chars @result.catMany
   ] when
 
   @result