浏览代码

fix `&&` macro handling again

Simon Krajewski 9 年之前
父节点
当前提交
6ec686333d
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      interp.ml

+ 2 - 2
interp.ml

@@ -3428,8 +3428,8 @@ and eval_op ctx op e1 e2 p =
 		let e2 = eval ctx e2 in
 		(fun() ->
 			match e1() with
-			| VBool false | VNull -> VBool false
-			| _ -> e2())
+			| VBool true -> e2()
+			| _ -> VBool false)
 	| "||" ->
 		let e1 = eval ctx e1 in
 		let e2 = eval ctx e2 in