Fix set algebra.
This commit is contained in:
parent
7205fd9382
commit
9981eead1b
1 changed files with 1 additions and 1 deletions
|
@ -60,6 +60,6 @@
|
||||||
(bst-EQ? ls1)))
|
(bst-EQ? ls1)))
|
||||||
|
|
||||||
(define (lset-subtract ls1 ls2)
|
(define (lset-subtract ls1 ls2)
|
||||||
(foldl lset-remove ls1 (lset->list ls2)))
|
(foldl lset-remove ls1 (lset->list ls2) #t))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue