Prevent IDs in variables from being trimmed

2018-01-18 16:03:29 +01:00 · 2018-01-18 16:03:29 +01:00 · d0ff07998f
parent 6619941770
commit d0ff07998f
1 changed files with 1 additions and 1 deletions
--- a/src/CPS.ml
+++ b/src/CPS.ml
@ -13,7 +13,7 @@ let freshId =
        (string_of_int !cId))

 let freshWithPrefix pre =
-    Atom.fresh (pre ^ (freshId ()))
+    Atom.fresh (pre ^ (freshId ()) ^ "_")
 let freshBlockVar () = freshWithPrefix "bl_"
 let freshVar () = freshWithPrefix "v_"