Nicolas Cannasse 14 лет назад
Родитель
Сommit
3c4f829fa6
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -739,7 +739,7 @@ let alloc_ctx com =
 	ctx
 
 let gen_single_expr ctx e constr =
-	if constr then gen_constructor ctx e else gen_expr ctx e;
+	if constr then gen_constructor ctx e else gen_value ctx e;
 	let str = Buffer.contents ctx.buf in
 	Buffer.reset ctx.buf;
 	ctx.id_counter <- 0;