Explorar el Código

fix `&&` macro handling again

Simon Krajewski hace 9 años
padre
commit
6ec686333d
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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