synth_read
This commit is contained in:
parent
f82e28cd8b
commit
9d077bcbc1
1 changed files with 3 additions and 1 deletions
|
@ -202,7 +202,9 @@ and synth_assign
|
||||||
and synth_read
|
and synth_read
|
||||||
: HopixTypes.typing_environment -> expression Position.located -> HopixTypes.aty
|
: HopixTypes.typing_environment -> expression Position.located -> HopixTypes.aty
|
||||||
=
|
=
|
||||||
fun tenv ref -> failwith "Students! This is your job! (synth_read)"
|
fun tenv ref ->
|
||||||
|
let refty = synth_expression tenv ref in
|
||||||
|
HopixTypes.destruct_reference_type ref.position refty
|
||||||
|
|
||||||
and synth_case
|
and synth_case
|
||||||
: HopixTypes.typing_environment -> expression Position.located
|
: HopixTypes.typing_environment -> expression Position.located
|
||||||
|
|
Reference in a new issue