Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[cleanup] qmljsimp: remove commented code.

  • Loading branch information...
commit d3f31cdaf568959950f9de1888e9c58384a773f9 1 parent 6286a3c
@arthuraa arthuraa authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 compiler/qmljsimp/imp_Bsl.ml
View
4 compiler/qmljsimp/imp_Bsl.ml
@@ -66,12 +66,12 @@ struct
J.ExprIdent (Ident.next name)
let fresh_var private_env name =
let ident = fresh_param name in
- let private_env = {(*private_env with*) local_vars = ident :: private_env.local_vars} in
+ let private_env = {local_vars = ident :: private_env.local_vars} in
private_env, ident
let declare_local_vars private_env =
let local_vars = private_env.local_vars in
- let private_env = {(*private_env with*) local_vars = []} in
+ let private_env = {local_vars = []} in
let declarations = List.map (fun i -> JsCons.Statement.var i) local_vars in
private_env, declarations
Please sign in to comment.
Something went wrong with that request. Please try again.