Prefix fresh names with macaw

Hopefully, this will avoid clashes with keywords.
This commit is contained in:
Iavor Diatchki 2018-03-21 16:14:31 -07:00
parent 36e6c8f7b9
commit 21ffae1ebe

View File

@ -379,7 +379,7 @@ freshValue sym str w ty =
where where
symName x = symName x =
case userSymbol x of case userSymbol ("macaw_" ++ x) of
Left err -> crash [ "Invalid symbol name:", show x, show err ] Left err -> crash [ "Invalid symbol name:", show x, show err ]
Right a -> return a Right a -> return a