diff options
author | Adam Chlipala <adam@chlipala.net> | 2015-11-27 15:28:12 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2015-11-27 15:28:12 -0500 |
commit | 4635acd2d4e4404b2b1a89909cd765ac310d62c5 (patch) | |
tree | 3a5805f65fb9c84460ab85f8c09f40e49dc9f4d9 /src/elab_env.sml | |
parent | 9e392faf0f78cb6b96708d96ed9c5fb6f9dd26dd (diff) |
Fix tricky case of functor signature subsumption
Diffstat (limited to 'src/elab_env.sml')
-rw-r--r-- | src/elab_env.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/elab_env.sml b/src/elab_env.sml index 9c9cd14f..3523b576 100644 --- a/src/elab_env.sml +++ b/src/elab_env.sml @@ -239,6 +239,10 @@ type env = { str : (string * sgn) IM.map } +fun dump (env : env) = + (print "NamedC:\n"; + IM.appi (fn (n, (x, k, co)) => print (x ^ " [" ^ Int.toString n ^ "]\n")) (#namedC env)) + val namedCounter = ref 0 fun newNamed () = |