format blocks
This commit is contained in:
parent
8934db0ec5
commit
2710786bf0
@ -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);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user