syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix patch-feedback calculation mistake, to match fixes in redex and coq

This commit is contained in:
Tony Garnock-Jones 2015-03-21 17:31:17 -04:00
parent 0d38e11ee8
commit dfb0eae02c
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
prospect/mux.rkt
View File

@ -61,8 +61,10 @@
(for/list [(pid affected-pids)]
(cond [(equal? pid label)
(define feedback
(patch (biased-intersection new-routing-table (patch-added delta))
(biased-intersection old-routing-table (patch-removed delta))))
(patch-union
(patch (biased-intersection new-routing-table (patch-added delta))
(biased-intersection old-routing-table (patch-removed delta)))
(view-patch delta-aggregate (mux-interests-of m pid))))
(cons label feedback)]
[else
(cons pid (view-patch delta-aggregate (mux-interests-of m pid)))]))

5
prospect/patch.rkt
View File

@ -28,6 +28,7 @@
compute-patch
biased-intersection
view-patch
patch-union
patch-project
patch-project/set
patch-project/set/single
@ -205,6 +206,10 @@
(patch (biased-intersection (patch-added p) interests)
(biased-intersection (patch-removed p) interests)))
(define (patch-union p1 p2)
(patch (matcher-union (patch-added p1) (patch-added p2))
(matcher-union (patch-removed p1) (patch-removed p2))))
(define (patch-project p spec)
(match-define (patch in out) p)
(patch (matcher-project in spec) (matcher-project out spec)))