maybe

6 years ago · fe84a77de5
parent 667ccecda2
commit fe84a77de5
1 changed files with 1 additions and 1 deletions
--- a/csp/hacs.rkt
+++ b/csp/hacs.rkt
@ -115,7 +115,7 @@

 (define/contract (assigned-name? csp name)
  (csp? name? . -> . any/c)
-  (for/first ([var (in-vars csp)]
+  (for/or ([var (in-vars csp)]
              #:when (assigned-var? var))
    (eq? name (var-name var))))