From 3339d075aa835d7dc4e94028b7301fa26e9f767a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 2 Oct 2014 23:28:27 -0700 Subject: [PATCH] tiny --- csp/constraint.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/csp/constraint.rkt b/csp/constraint.rkt index bc0533a5..bb6e2a4b 100644 --- a/csp/constraint.rkt +++ b/csp/constraint.rkt @@ -50,10 +50,10 @@ (set! unassignedvariable variable) (break))) (when (not (equal? unassignedvariable _unassigned)) - ;; Remove from the unassigned variable domain's all + + ;; Remove from the unassigned variable's domain all ;; values which break our variable's constraints. (define domain (hash-ref domains unassignedvariable)) - ;(report domain domain-fc) (when (not (null? (get-field _list domain))) (for ([value (in-list (get-field _list domain))]) (hash-set! assignments unassignedvariable value)