Foreach .combine ignores initial value

[mschubert]

Consider the default .combine function and intial value for foreach

red = function (a, ...) c(a, list(...))
init = substitute(list())

This currently gives the wrong result

Reduce(red, list(matrix(c(1,2),ncol=1),matrix(c(2,3),ncol=1)))
# will separate the first matrix into its elements

Fixing needs an additional eval() on the intial value

Reduce(red, list(matrix(c(1,2),ncol=1),matrix(c(2,3),ncol=1)), init=init)
# additonal list() element in beginning
Reduce(red, list(matrix(c(1,2),ncol=1),matrix(c(2,3),ncol=1)), init=eval(init))
# all good