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

OccNames for closure conversion

parent 17b7cf1a
......@@ -32,6 +32,7 @@ module OccName (
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkCloOcc, mkCloTyCoOcc,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
......@@ -457,6 +458,10 @@ mkGenOcc2 = mk_simple_deriv varName "$gto"
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_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
-- Data constructor workers are made by setting the name space
......
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