ref: 29c4cb296e5a41beeb2e093bb0a74db79fd679a0
parent: 95fb3098b5d634422fbfcffc8eee859e935f4c41
author: Lennart Augustsson <lennart@augustsson.net>
date: Sat Dec 23 04:59:06 EST 2023
Slightly fewer id collisions.
--- a/generated/mhs.c
+++ b/generated/mhs.c
@@ -4484,7 +4484,7 @@
95,53,48,53,41,32,40,95,49,56,54,55,32,95,51,49,54,41,41,41,
41,32,75,41,41,32,40,40,95,50,48,53,32,95,50,49,57,41,32,35,
49,41,41,41,41,32,40,40,65,32,58,56,53,48,32,40,40,95,50,56,
-52,32,95,52,54,57,41,32,40,95,56,52,57,32,34,36,113,34,41,41,
+52,32,95,52,54,57,41,32,40,95,56,52,57,32,34,36,118,34,41,41,
41,32,40,40,65,32,58,56,53,49,32,40,40,95,50,56,52,32,95,49,
56,56,52,41,32,40,95,52,51,50,32,95,56,53,50,41,41,41,32,40,
40,65,32,58,56,53,50,32,40,85,32,40,40,67,39,66,32,40,40,66,
--- a/src/MicroHs/Desugar.hs
+++ b/src/MicroHs/Desugar.hs
@@ -275,7 +275,7 @@
newVars s is = deleteAllsBy (==) [ mkIdent (s ++ show i) | i <- [1::Int ..] ] is
newVar :: [Ident] -> Ident
-newVar = head . newVars "$q"
+newVar = head . newVars "$v"
showLDefs :: [LDef] -> String
showLDefs = unlines . map showLDef
--
⑨