From: fennecdjay <fennecdjay@gmail.com>
Date: Mon, 4 Jul 2022 12:09:52 +0000 (+0200)
Subject: :bug: partial ctor td bug
X-Git-Tag: nightly~264^2~103
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=460ca2dc3f7facac5f34f8a81f56d354f430f349;p=gwion.git

:bug: partial ctor td bug
---

diff --git a/src/parse/partial.c b/src/parse/partial.c
index 76d46898..00da3a3e 100644
--- a/src/parse/partial.c
+++ b/src/parse/partial.c
@@ -40,7 +40,7 @@ ANN static inline Symbol partial_name(const Env env, const pos_t pos) {
 
 ANN2(1, 2) static inline Func_Base *partial_base(const Env env, const Func_Base *base, Exp earg, const loc_t loc) {
   Arg_List args = earg ? partial_arg_list(env, base->args, earg) : NULL;
-  Func_Base *fb = new_func_base(env->gwion->mp, cpy_type_decl(env->gwion->mp, base->td), partial_name(env, loc.first), args, ae_flag_none, loc);
+  Func_Base *fb = new_func_base(env->gwion->mp, base->td ? cpy_type_decl(env->gwion->mp, base->td) : NULL, partial_name(env, loc.first), args, ae_flag_none, loc);
   return fb;
 }