@@ -66,9 +66,7 @@ newScope x = do
66updateScope :: Ident -> Rename Ident
66updateScope :: Ident -> Rename Ident
67updateScope ident =
67updateScope ident =
68 case ident of
68 case ident of
70− | name == C.__unused -> return ident
69+ Ident name | name == C.__unused -> return ident
71− | last name == '\'' -> go ident $ Ident $ init name ++ "ʹ" -- '\x02b9'
72 GenIdent name _ -> go ident $ Ident (fromMaybe "v" name)
70 GenIdent name _ -> go ident $ Ident (fromMaybe "v" name)
73 _ -> go ident ident
71 _ -> go ident ident