formally correct context for export
authorhaftmann
Sun, 15 Nov 2015 16:37:03 +0100
changeset 61684 048ba34613bb
parent 61683 79514e0f60eb
child 61685 2b3772ecfdec
formally correct context for export
src/Pure/Isar/interpretation.ML
--- a/src/Pure/Isar/interpretation.ML	Sun Nov 15 14:40:07 2015 +0100
+++ b/src/Pure/Isar/interpretation.ML	Sun Nov 15 16:37:03 2015 +0100
@@ -57,7 +57,7 @@
     (*reading*)
     val ((propss, deps, export), expr_ctxt) = prep_expr expression initial_ctxt;
     val deps_ctxt = fold Locale.activate_declarations deps expr_ctxt;
-    val prep = Syntax.check_terms deps_ctxt #> Variable.export_terms deps_ctxt deps_ctxt;
+    val prep = Syntax.check_terms deps_ctxt #> Variable.export_terms deps_ctxt expr_ctxt;
     val rhss = (prep o map (prep_term deps_ctxt o snd o snd)) raw_defs;
     val eqns = (prep o map (prep_prop deps_ctxt o snd)) raw_eqns;