1 arg arity for preserving-reduced

This is a real corner case, so probably not worth much attention. I was experimenting with writing a version of tree-seq using reduction rather than sequences. Here's what I came up with:

However, using it resulted in an exception:

The exception is not thrown if preserving-reduced is given a 1 argument arity, ie: