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

Remove unused function

This commit is contained in:
Tony Garnock-Jones 2014-05-25 23:32:43 -04:00
parent 4c2abd334c
commit bd608c21a1
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
minimart/gestalt.rkt
View File

@ -147,13 +147,6 @@
(cons (matcher-combiner (car sa1) (car sa2))
(matcher-combiner (cdr sa1) (cdr sa2))))))
(define (gestalt-combine-crossed g1 g2 imbalance-handler matcher-combiner)
(gestalt-combine g1 g2
imbalance-handler
(lambda (sa1 sa2)
(cons (matcher-combiner (car sa1) (cdr sa2))
(matcher-combiner (car sa2) (cdr sa1))))))
(define (gestalt-union . gs)
(if (null? gs)
(gestalt-empty)