mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-11-26 09:22:20 +03:00
Prefix fresh names with macaw
Hopefully, this will avoid clashes with keywords.
This commit is contained in:
parent
36e6c8f7b9
commit
21ffae1ebe
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user