:bug: partial ctor td bug

diff --git a/src/parse/partial.c b/src/parse/partial.c
index 76d46898c1b09e3a6954fd6276c9273ba2399e19..00da3a3e2b8bbff834601230dfca3db999ddb160 100644 (file)
--- 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;
 }