aboutsummaryrefslogtreecommitdiff
path: root/src/fmt.cff
diff options
context:
space:
mode:
authorlemon <lsof@mailbox.org>2022-08-14 09:25:16 +0200
committerlemon <lsof@mailbox.org>2022-08-14 09:25:16 +0200
commitc129f77ad724aa940b53a125de0e1e4de0ca7240 (patch)
tree57ad369bcfe02d0fb8a311c659e45cf2ae5df075 /src/fmt.cff
parent66ed623e65ab9350f08061fe7cf12b989c84f65c (diff)
fix arena
Diffstat (limited to 'src/fmt.cff')
-rw-r--r--src/fmt.cff7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/fmt.cff b/src/fmt.cff
index ad28bbd..8212593 100644
--- a/src/fmt.cff
+++ b/src/fmt.cff
@@ -47,10 +47,15 @@ extern fn vpfmt(proc *fn(u8, *void) void, parg *void, fmt *const u8, ap va_list)
p('\'');
case :null;
ps("#null");
- case :ident, :macident, :gensym, :label;
+ case :ident, :macident, :label;
if quote { p('`'); }
ps(tok.u.ident);
if quote { p('\''); }
+ case :gensym;
+ if quote { p('`'); }
+ p('$');
+ ps(tok.u.ident);
+ if quote { p('\''); }
case :type;
pfmt(proc, parg, "%t", tok.ty);
case else