Commit b3e6904f authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Modify generation of OccNames for closure conversion

parent 686d8744
......@@ -32,7 +32,7 @@ module OccName (
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkCloOcc, mkCloTyCoOcc,
mkCloOcc, mkCloTyConOcc, mkCloDataConOcc,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
......@@ -459,8 +459,9 @@ mkDataTOcc = mk_simple_deriv varName "$t"
mkDataCOcc = mk_simple_deriv varName "$c"
-- Closure conversion
mkCloOcc = mk_simple_deriv varName "$CC_"
mkCloTyCoOcc = mk_simple_deriv tcName ":CC_"
mkCloOcc = mk_simple_deriv varName "$CC_"
mkCloTyConOcc = mk_simple_deriv tcName ":CC_"
mkCloDataConOcc = mk_simple_deriv dataName ":CD_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment