format blocks

This commit is contained in:
dzaima 2021-08-04 21:47:41 +03:00
parent 8934db0ec5
commit 2710786bf0

View File

@ -100,6 +100,9 @@ B fmtF_c1(B t, B x) {
if (ty==t_md1BI) { B r = fromUTF8l(format_pm1(c(Md1,x)->extra)); dec(x); return r; }
if (ty==t_md2BI) { B r = fromUTF8l(format_pm2(c(Md2,x)->extra)); dec(x); return r; }
if (ty==t_nfn) { B r = nfn_name(x); dec(x); return r; }
if (ty==t_fun_block) { dec(x); return m_str8l("(function block)"); }
if (ty==t_md1_block) { dec(x); return m_str8l("(1-modifier block)"); }
if (ty==t_md2_block) { dec(x); return m_str8l("(2-modifier block)"); }
return m_str32(U"(fmtF: not given a runtime primitive)");
}
dec(x);