Nicolas Cannasse 14 年之前
父节点
当前提交
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;