Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

?

Browse source
This commit is contained in:
Nicolas PENELOUX 2023-11-25 14:33:03 +01:00
parent da6e4547a8
commit 79029a186e
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
flap/src/hopix/hopixTypechecker.ml
View file

@ -67,21 +67,18 @@ let rec synth_expression
: HopixTypes.typing_environment -> HopixAST.expression Position.located : HopixTypes.typing_environment -> HopixAST.expression Position.located
-> HopixTypes.aty -> HopixTypes.aty
= =
fun env Position.{ value = e; position = pos } -> fun env Position.{ value = e; position = pos } ->
failwith "Students! This is your job! (synth_expression)"
and check_expression and check_expression
: HopixTypes.typing_environment -> HopixAST.expression Position.located : HopixTypes.typing_environment -> HopixAST.expression Position.located
-> HopixTypes.aty -> unit -> HopixTypes.aty -> unit
= =
fun env (Position.{ value = e; position = pos } as exp) expected -> fun env (Position.{ value = e; position = pos } as exp) expected ->
failwith "Students! This is your job! (check_expression)"
and check_value_definition and check_value_definition
: HopixTypes.typing_environment -> HopixAST.value_definition : HopixTypes.typing_environment -> HopixAST.value_definition
-> HopixTypes.typing_environment -> HopixTypes.typing_environment
= =
fun env def -> failwith "Students! This is your job! (check_value_definition)"
;; ;;
let check_definition env = function let check_definition env = function