From 22b0811cbece7d3d6d6c7a830fcf6c0a8921a5a0 Mon Sep 17 00:00:00 2001 From: Mylloon Date: Fri, 15 Dec 2023 13:53:55 +0100 Subject: [PATCH] Apply --- flap/src/fopix/hobixToFopix.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/flap/src/fopix/hobixToFopix.ml b/flap/src/fopix/hobixToFopix.ml index 7789adc..799ef70 100644 --- a/flap/src/fopix/hobixToFopix.ml +++ b/flap/src/fopix/hobixToFopix.ml @@ -226,7 +226,10 @@ let translate (p : S.t) env = let bfs, b = expression env b in afs @ bfs, T.Define (identifier id, a, b) | S.RecFunctions _ -> failwith "Students! This is your job (S.RecFunctions)!") - | S.Apply (a, bs) -> failwith "Students! This is your job (S.Apply)!" + | S.Apply (a, bs) -> + let afs, a = expression env a in + let bsfs, bs = expressions env bs in + afs @ bsfs, T.UnknownFunCall (a, bs) | S.IfThenElse (a, b, c) -> let afs, a = expression env a in let bfs, b = expression env b in