Skip to content

Commit fc50dd6

Browse files
author
Hongbo Zhang
committed
[snapshot] bug fix release
1 parent e476e76 commit fc50dd6

File tree

2 files changed

+5
-7
lines changed

2 files changed

+5
-7
lines changed

jscomp/bin/compiler.ml

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
(** Bundled by ocaml_pack 05/23-17:15 *)
1+
(** Bundled by ocaml_pack 05/24-13:02 *)
22
module Literals : sig
33
#1 "literals.mli"
44
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
@@ -18185,11 +18185,9 @@ let rewrite (map : (Ident.t, _) Hashtbl.t)
1818518185
let l2 = aux l2 in
1818618186
Llet(str, v, l1, l2 )
1818718187
| 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
1819318191
let body = aux body in
1819418192
Lletrec(bindings, body)
1819518193
| Lfunction(kind, params, body) ->

package.json

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@
2323
"postinstall": "./scripts/postinstall.sh"
2424
},
2525
"name": "bs-platform",
26-
"version": "0.5.1",
26+
"version": "0.5.2",
2727
"description": "bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support",
2828
"repository": {
2929
"type": "git",

0 commit comments

Comments
 (0)