From ebd95448702acfa86075d5eabc3ef482da967a86 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Fri, 15 Dec 2023 19:15:54 +0100
Subject: [PATCH] ig?

---
 flap/src/fopix/hobixToFopix.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/flap/src/fopix/hobixToFopix.ml b/flap/src/fopix/hobixToFopix.ml
index 7d39d3b..aaf4a17 100644
--- a/flap/src/fopix/hobixToFopix.ml
+++ b/flap/src/fopix/hobixToFopix.ml
@@ -239,8 +239,7 @@ let translate (p : S.t) env =
       let fname = make_fresh_function_identifier () in
       let x = List.map identifier x in
       let efs, e = expression env e in
-      failwith "Students! This is your job (S.Fun)!"
-      (* efs, T.DefineFunction (fname, x, e) *)
+      T.DefineFunction (fname, x, e) :: efs, e
     | S.AllocateBlock a ->
       let afs, a = expression env a in
       afs, allocate_block a