@@ -1266,7 +1266,10 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
1266 , (arg:_) <- args = jsCall "i$systemInfo" [translateReg arg]
1266 , (arg:_) <- args = jsCall "i$systemInfo" [translateReg arg]
1267 | LExternal nul <- op
1267 | LExternal nul <- op
1268 , nul == sUN "prim__null"
1268 , 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)
1270 | otherwise = JSError $ "Not implemented: " ++ show op
1273 | otherwise = JSError $ "Not implemented: " ++ show op
1272 translateBinaryOp :: String -> Reg -> Reg -> JS
1275 translateBinaryOp :: String -> Reg -> Reg -> JS