errority

6 years ago · 7fe4aee3d4
parent 2a37208847
commit 7fe4aee3d4
1 changed files with 41 additions and 39 deletions
--- a/csp/csp.rkt
+++ b/csp/csp.rkt
@ -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]