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

Change compute-patch to deal with trie-sets rather than -maps

This commit is contained in:
Tony Garnock-Jones 2016-07-12 13:43:01 -04:00
parent 118c163193
commit 7c11a438e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/patch.rkt
View File

@ -259,8 +259,8 @@
[(cons p rest) (compose-patch (patch-seq* rest) p)]))
(define (compute-patch old-base new-base)
(patch (trie-subtract new-base old-base)
(trie-subtract old-base new-base)))
(patch (trie-subtract new-base old-base #:combiner (lambda (v1 v2) trie-empty))
(trie-subtract old-base new-base #:combiner (lambda (v1 v2) trie-empty))))
(define (biased-intersection object subject)
(trie-intersect object