@ -235,6 +235,8 @@
(validate-assignments csp-with-assignment))
(define (reduce-arity proc args)
(unless (= (length args) (procedure-arity proc))
(raise-argument-error 'reduce-arity (format "list of length ~a, same as procedure arity" (procedure-arity proc)) args))
(procedure-rename
(λ xs
(apply proc (for/fold ([acc empty]