tobast/mpri-funcprog-project
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Prevent IDs in variables from being trimmed

Browse source
This commit is contained in:
Théophile Bastian 2018-01-18 16:03:29 +01:00
parent 6619941770
commit d0ff07998f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/CPS.ml
View file

@ -13,7 +13,7 @@ let freshId =
(string_of_int !cId)) (string_of_int !cId))
let freshWithPrefix pre = let freshWithPrefix pre =
Atom.fresh (pre ^ (freshId ())) Atom.fresh (pre ^ (freshId ()) ^ "_")
let freshBlockVar () = freshWithPrefix "bl_" let freshBlockVar () = freshWithPrefix "bl_"
let freshVar () = freshWithPrefix "v_" let freshVar () = freshWithPrefix "v_"