Permalink
Browse files

[cleanup] qmljsimp: remove commented code.

  • Loading branch information...
1 parent 6286a3c commit d3f31cdaf568959950f9de1888e9c58384a773f9 @arthuraa arthuraa committed Aug 22, 2012
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

0 comments on commit d3f31cd

Please sign in to comment.