1 arg arity for preserving-reduced

Description

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:

Environment

None

Assignee

Unassigned

Reporter

Greg Chapman

Labels

None

Approval

None

Patch

None

Affects versions

Priority

Minor