--- a/src/Tools/Code/code_thingol.ML Fri Mar 24 18:30:17 2023 +0000
+++ b/src/Tools/Code/code_thingol.ML Fri Mar 24 18:30:17 2023 +0000
@@ -936,7 +936,7 @@
val program2 = Code_Symbol.Graph.del_node dummy_constant program1;
val deps_all = Code_Symbol.Graph.all_succs program2 deps';
val program3 = Code_Symbol.Graph.restrict (member (op =) deps_all) program2;
- in ((program3, ((vs_ty, t), deps')), (deps', program2)) end;
+ in ((program3, ((vs_ty, t), deps')), (deps', program2)) end;
in
ensure_stmt Constant stmt_value \<^const_name>\<open>Pure.dummy_pattern\<close>
#> snd