scalar to vector power broken?

[shabbychef]

This should run:

X <- madness(2,dvdx=c(1),vtag='x')
Xpow <- X^(1:5)

Instead, I get:

Error in if (length(val) != dim(dvdx)[1]) { : argument is of length zero

Enter a frame number, or 0 to exit   

1: X^(1:5)
2: X^(1:5)
3: new("madness", val = val, dvdx = dvdx, vtag = vtag, xtag = xtag, varx = varx)
4: initialize(value, ...)
5: initialize(value, ...)
6: .local(.Object, ...)

This is with madness 0.2.0

[shabbychef]

Similarly broken are:

X <- madness(2,dvdx=c(1),vtag='x')
Xpow <- X + (1:5)
Xpow <- X - (1:5)
Xpow <- X * (1:5)

[shabbychef]

Fixed by dc89580926 includes unit tests.