From 2710786bf0767f1f7d41c74943b57611ef8677b0 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 4 Aug 2021 21:47:41 +0300 Subject: [PATCH] format blocks --- src/builtins/fns.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/builtins/fns.c b/src/builtins/fns.c index a59ed657..93dc1bdb 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -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);