From c129f77ad724aa940b53a125de0e1e4de0ca7240 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Sun, 14 Aug 2022 09:25:16 +0200
Subject: fix arena

---
 src/fmt.cff | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/fmt.cff')

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
-- 
cgit v1.2.3