Browse Source

fixed issue #949

Nicolas Cannasse 13 years ago
parent
commit
60d518172b
1 changed files with 1 additions and 1 deletions
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -438,7 +438,7 @@ and gen_expr ctx e =
 		| _ ->
 		| _ ->
 			print ctx "($_=";
 			print ctx "($_=";
 			gen_value ctx x;
 			gen_value ctx x;
-			print ctx ",$bind($_,$_.%s)" s)
+			print ctx ",$bind($_,$_.%s))" s)
 	| TTypeExpr t ->
 	| TTypeExpr t ->
 		spr ctx (ctx.type_accessor t)
 		spr ctx (ctx.type_accessor t)
 	| TParenthesis e ->
 	| TParenthesis e ->