use seteq sometimes

3 years ago · bf1c4d1c98
parent 576b4bee9d
commit bf1c4d1c98
1 changed files with 5 additions and 3 deletions
--- a/csp/csp/hacs.rkt
+++ b/csp/csp/hacs.rkt
@ -77,7 +77,9 @@

 (define/contract (make-var name [vals null])
  ((name?) ((listof any/c)) . ->* . var?)
-  (var name (list->set vals)))
+  (var name (match vals
+              [(list (or (? fixnum?) (? symbol?)) ...) (list->seteq vals)]
+              [_ (list->set vals)])))

 (define/contract (make-var-names prefix vals [suffix ""])
  ((string? (listof any/c)) ((string?)) . ->* . (listof name?))