brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Really fix set algebra subtraction.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-12 18:54:03 +02:00
parent 9981eead1b
commit 4333f566ba
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/util-bst-lset.scm
View file

@ -60,6 +60,8 @@
(bst-EQ? ls1))) (bst-EQ? ls1)))
(define (lset-subtract ls1 ls2) (define (lset-subtract ls1 ls2)
(foldl lset-remove ls1 (lset->list ls2) #t)) (foldl (lambda (ls e)
(lset-remove ls e #t))
ls1 (lset->list ls2)))
) )