mbutterick
/
typesetting
2
1
Fork 0
Code Issues 13 Pull Requests Projects Releases Wiki Activity

add for-each-send

Browse Source
main
Matthew Butterick 10 years ago
parent 634c32a2cb
commit 5cd56d8b9d
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File

3
csp/helper.rkt
Unescape Escape View File

@ -3,6 +3,9 @@
(provide (all-defined-out))
(require rackunit)
(define-syntax-rule (for-each-send proc objects)
(for-each (λ(o) (send o proc)) objects))
(define-syntax-rule (make-proc<%> proc-name)
(interface* ()
([prop:procedure

10
csp/solver.rkt
Unescape Escape View File

@ -69,7 +69,7 @@
(set! variable (first variable-values-pushdomains))
(set! values (second variable-values-pushdomains))
(set! pushdomains (third variable-values-pushdomains))
(for-each (λ(pd) (send pd pop-state)) pushdomains))
(for-each-send pop-state pushdomains))
;(report variable variable-preloop-2)
;(report assignments assignments-preloop-2)
@ -92,7 +92,7 @@
(set! variable (first variable-values-pushdomains))
(set! values (second variable-values-pushdomains))
(set! pushdomains (third variable-values-pushdomains))
(for-each (λ(pd) (send pd pop-state)) pushdomains)
(for-each-send pop-state pushdomains)
(when (not (null? values)) (break-loop3))
(hash-remove! assignments variable)
(loop3))
@ -103,8 +103,7 @@
;; Got a value. Check it.
(hash-set! assignments variable (py-pop! values))
(for ([domain (in-list pushdomains)])
(send domain push-state))
(for-each-send push-state pushdomains)
;(report pushdomains pushdomains1)
;(report domains domains1)
@ -121,8 +120,7 @@
(begin ;(displayln "now breaking loop 2")
(break-loop2)))
(for ([domain (in-list pushdomains)])
(send domain pop-state))
(for-each-send pop-state pushdomains)
(loop2)))

Write Preview
Loading…
Cancel
Save