diff src/mono_env.sml @ 2257:28a541bd2d23

Use referenced (rather than all) free variables as keys for pure caches.
author Ziv Scully <ziv@mit.edu>
date Sun, 27 Sep 2015 14:46:12 -0400
parents 6f2ea4ed573a
children
line wrap: on
line diff
--- a/src/mono_env.sml	Sun Sep 27 03:52:14 2015 -0400
+++ b/src/mono_env.sml	Sun Sep 27 14:46:12 2015 -0400
@@ -108,8 +108,6 @@
     (List.nth (#relE env, n))
     handle Subscript => raise UnboundRel n
 
-fun typeContext (env : env) = map #2 (#relE env)
-
 fun pushENamed (env : env) x n t eo s =
     {datatypes = #datatypes env,
      constructors = #constructors env,