Fix extra_pos/pos

This commit is contained in:
Denis Merigoux 2024-04-12 17:04:17 +02:00
parent 241f55a71a
commit 1e76366f51
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3

View File

@ -272,10 +272,9 @@ let rec translate_expr (ctx : 'm ctx) (e : 'm S.expr) : 'm Ast.expr boxed =
( var_ctx.scope_input_name,
thunk_scope_arg var_ctx (translate_expr ctx e) )
| Some var_ctx, None ->
Message.error
Message.error ~pos
~extra_pos:
[
"", pos;
( "Declaration of the missing input variable",
Mark.get (StructField.get_info var_ctx.scope_input_name) );
]