Commit 04c8f9585a60ee906e5e92fea173ac0deec3c166

Thomas de Grivel 2024-08-30T19:15:35

buf_inspect_var

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
diff --git a/libkc3/buf_inspect.c b/libkc3/buf_inspect.c
index 1d07fde..29efd71 100644
--- a/libkc3/buf_inspect.c
+++ b/libkc3/buf_inspect.c
@@ -3783,6 +3783,7 @@ sw buf_inspect_var (s_buf *buf, const s_var *var)
   if (var->type == &g_sym_Tag) {
     if ((r = buf_write_1(buf, "?")) < 0)
       return r;
+    result += r;
   }
   else {
     if ((r = buf_inspect_paren_sym(buf, var->type)) < 0)
@@ -3814,6 +3815,7 @@ sw buf_inspect_var_size (s_pretty *pretty, const s_var *var)
   if (var->type == &g_sym_Tag) {
     if ((r = buf_write_1_size(pretty, "?")) < 0)
       return r;
+    result += r;
   }
   else {
     if ((r = buf_inspect_paren_sym_size(pretty, var->type)) < 0)