@@ -668,7 +668,7 @@ strictNEq :: JS.Expr -> JS.Expr -> JS.Expr
668strictNEq left right =
668strictNEq left right =
669 case left of
669 case left of
670 JS.Int 0 ->
670 JS.Int 0 ->
671− right
671+ JS.Prefix JS.PrefixLNot (JS.Prefix JS.PrefixLNot right)
673 JS.Bool bool ->
673 JS.Bool bool ->
674 if bool then JS.Prefix JS.PrefixLNot right else right
674 if bool then JS.Prefix JS.PrefixLNot right else right
@@ -676,7 +676,7 @@ strictNEq left right =
677 case right of
677 case right of
678 JS.Int 0 ->
678 JS.Int 0 ->
679− left
679+ JS.Prefix JS.PrefixLNot (JS.Prefix JS.PrefixLNot left)
681 JS.Bool bool ->
681 JS.Bool bool ->
682 if bool then JS.Prefix JS.PrefixLNot left else left
682 if bool then JS.Prefix JS.PrefixLNot left else left