Off-by-one error with `==` involving index

[richfitz]

gen <- odin::odin({
  initial(a) <- 1
  deriv(a) <- 0
  x[] <- if (i == 1) 1 else 0
  dim(x) <- 4
})
gen()$contents()$x
# [1] 0 1 0 0

in the above it should be the first, not the second element. Solution is to apply the off-by-one correction to each side of == separately?

[richfitz]

Re-reported as #136 but fixed in #139