From 5d233f45321376a2e480989fe14dcea5fdea4382 Mon Sep 17 00:00:00 2001
From: Louis Gesbert <louis.gesbert@ocamlpro.com>
Date: Mon, 29 Jan 2024 11:37:42 +0100
Subject: [PATCH] Fix warning

---
 compiler/scalc/print.ml                        | 1 -
 tests/test_modules/good/output/mod_def.ml@post | 1 -
 2 files changed, 2 deletions(-)
 delete mode 100644 tests/test_modules/good/output/mod_def.ml@post

diff --git a/compiler/scalc/print.ml b/compiler/scalc/print.ml
index a6608432..e7f1cb64 100644
--- a/compiler/scalc/print.ml
+++ b/compiler/scalc/print.ml
@@ -42,7 +42,6 @@ let rec format_expr
   | EVar v -> Format.fprintf fmt "%a" format_var_name v
   | EFunc v -> Format.fprintf fmt "%a" format_func_name v
   | EStruct { fields = es; name = s } ->
-    let fields = StructName.Map.find s decl_ctx.ctx_structs in
     Format.fprintf fmt "@[<hov 2>%a@ %a%a%a@]" StructName.format s
       Print.punctuation "{"
       (Format.pp_print_list
diff --git a/tests/test_modules/good/output/mod_def.ml@post b/tests/test_modules/good/output/mod_def.ml@post
deleted file mode 100644
index c2270834..00000000
--- a/tests/test_modules/good/output/mod_def.ml@post
+++ /dev/null
@@ -1 +0,0 @@
-0
\ No newline at end of file