Skip to content

Commit 6e60ce5

Browse files
committed
fix(engine): ocaml update: breaks keyword effect
1 parent 03bf5cd commit 6e60ce5

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

engine/backends/fstar/fstar_backend.ml

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -950,14 +950,14 @@ struct
950950
match args with
951951
| [] -> typ
952952
| _ ->
953-
let mk namespace effect = F.term_of_lid (namespace @ [ effect ]) in
953+
let mk namespace eff = F.term_of_lid (namespace @ [ eff ]) in
954954
let prims = mk [ "Prims" ] in
955-
let effect =
955+
let eff =
956956
if Option.is_some prepost_bundle then
957957
if is_lemma then mk [] "Lemma" else prims "Pure"
958958
else prims "Tot"
959959
in
960-
F.mk_e_app effect (if is_lemma then List.drop args 1 else typ :: args)
960+
F.mk_e_app eff (if is_lemma then List.drop args 1 else typ :: args)
961961

962962
(** Prints doc comments out of a list of attributes *)
963963
let pdoc_comments attrs =

0 commit comments

Comments
 (0)