From 3ddaf9250586db0cf0d3e40106c836bb7ec33add Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Mon, 19 Aug 2024 13:21:28 -0400 Subject: Bugfix :text_content() for DSLs --- typecheck.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typecheck.c b/typecheck.c index 2fb8556d..3d40da3c 100644 --- a/typecheck.c +++ b/typecheck.c @@ -362,7 +362,7 @@ void bind_statement(env_t *env, ast_t *statement) new(binding_t, .type=Type(FunctionType, .args=new(arg_t, .name="text", .type=TEXT_TYPE), .ret=type), .code=CORD_all("(", namespace_prefix(env->libname, env->namespace), def->name, "_t)"))); set_binding(ns_env, "text_content", - new(binding_t, .type=Type(FunctionType, .args=new(arg_t, .name="text", .type=TEXT_TYPE), .ret=type), + new(binding_t, .type=Type(FunctionType, .args=new(arg_t, .name="text", .type=type), .ret=TEXT_TYPE), .code="(Text_t)")); for (ast_list_t *stmt = def->namespace ? Match(def->namespace, Block)->statements : NULL; stmt; stmt = stmt->next) -- cgit v1.2.3