kw nit

3 years ago · 2c94de76a3
parent 7f69bbdd56
commit 2c94de76a3
1 changed files with 1 additions and 1 deletions
--- a/csp/csp/hacs-test.rkt
+++ b/csp/csp/hacs-test.rkt
@ -221,7 +221,7 @@
 (add-vars! zebra ps '(dogs snails foxes horses zebra))

 (for ([vars (list ns cs ds ss ps)])
-  (add-all-diff-constraint! zebra vars #:proc eq?))
+  (add-all-diff-constraint! zebra vars #:same eq?))

 (define (xnor lcond rcond)
  (or (and lcond rcond) (and (not lcond) (not rcond))))