@@ -1662,7 +1662,10 @@ translateExpression (SOp op vars)
16621662 , (lhs:rhs:_) <- vars = JSIndex (JSVar lhs) (JSVar rhs)
16631663 | LStrTail <- op
16641664 , (arg:_) <- vars = let v = translateVariableName arg in
1665− JSRaw $ v ++ ".substr(1," ++ v ++ ".length-1)"
1665+ JSApp (JSProj (JSIdent v) "substr") [
1666+ JSNum (JSInt 1),
1667+ JSBinOp "-" (JSProj (JSIdent v) "length") (JSNum (JSInt 1))
1668+ ]
16661669 | LNullPtr <- op
16671670 , (_) <- vars = JSNull
16681671