@@ -1266,7 +1266,10 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
12661266 , (arg:_) <- args = jsCall "i$systemInfo" [translateReg arg]
12671267 | LExternal nul <- op
12681268 , nul == sUN "prim__null"
1269− , (_) <- args = JSNull
1269+ , _ <- args = JSNull
1270+ | LExternal ex <- op
1271+ , ex == sUN "prim__eqPtr"
1272+ , [lhs, rhs] <- args = JSBinOp "==" (translateReg lhs) (translateReg rhs)
12701273 | otherwise = JSError $ "Not implemented: " ++ show op
12711274 where
12721275 translateBinaryOp :: String -> Reg -> Reg -> JS