@@ -1242,6 +1242,8 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
1242 , (arg:_) <- args = jsCall "Math.floor" [translateReg arg]
1242 , (arg:_) <- args = jsCall "Math.floor" [translateReg arg]
1243 | LFCeil <- op
1243 | LFCeil <- op
1244 , (arg:_) <- args = jsCall "Math.ceil" [translateReg arg]
1244 , (arg:_) <- args = jsCall "Math.ceil" [translateReg arg]
1246+ , (arg:_) <- args = JSPreOp "-" (translateReg arg)
1246 | LStrCons <- op
1248 | LStrCons <- op
1247 , (lhs:rhs:_) <- args = invokeMeth lhs "concat" [rhs]
1249 , (lhs:rhs:_) <- args = invokeMeth lhs "concat" [rhs]