File tree Expand file tree Collapse file tree 2 files changed +5
-7
lines changed Expand file tree Collapse file tree 2 files changed +5
-7
lines changed Original file line number Diff line number Diff line change 1
- (** Bundled by ocaml_pack 05/23-17:15 *)
1
+ (** Bundled by ocaml_pack 05/24-13:02 *)
2
2
module Literals : sig
3
3
#1 "literals.mli"
4
4
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
@@ -18185,11 +18185,9 @@ let rewrite (map : (Ident.t, _) Hashtbl.t)
18185
18185
let l2 = aux l2 in
18186
18186
Llet(str, v, l1, l2 )
18187
18187
| Lletrec(bindings, body) ->
18188
- let bindings =
18189
- bindings |> List.map (fun (k,l) ->
18190
- let k = rebind k in
18191
- (k, aux l)
18192
- ) in
18188
+ (*order matters see GPR #405*)
18189
+ let vars = List.map (fun (k, _) -> rebind k) bindings in
18190
+ let bindings = List.map2 (fun var (_,l) -> var, aux l) vars bindings in
18193
18191
let body = aux body in
18194
18192
Lletrec(bindings, body)
18195
18193
| Lfunction(kind, params, body) ->
Original file line number Diff line number Diff line change 23
23
"postinstall" : " ./scripts/postinstall.sh"
24
24
},
25
25
"name" : " bs-platform" ,
26
- "version" : " 0.5.1 " ,
26
+ "version" : " 0.5.2 " ,
27
27
"description" : " bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support" ,
28
28
"repository" : {
29
29
"type" : " git" ,
You can’t perform that action at this time.
0 commit comments