From 55afc5a5fd93f4e45aeab7f08ed8faee86377d12 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 12 Oct 2024 13:29:23 -0400
Subject: Further progress and bugfixes

---
 ast.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ast.c')

diff --git a/ast.c b/ast.c
index 2d6b3bc7..170fd12a 100644
--- a/ast.c
+++ b/ast.c
@@ -104,7 +104,7 @@ Text_t _optional_tagged(const char *tag, ast_t *ast)
 
 Text_t _optional_tagged_type(const char *tag, type_ast_t *ast)
 {
-    return ast ? Text$format("<%s>%k</%s>", tag, stack(type_ast_to_xml(ast)), tag) : Text("");
+    return ast ? Text$format("<%s>%k</%s>", tag, type_ast_to_xml_ptr(ast), tag) : Text("");
 }
 
 Text_t ast_to_xml(ast_t *ast)
-- 
cgit v1.2.3