Fix set algebra.

This commit is contained in:
Dominik Pantůček 2023-07-12 18:48:12 +02:00
parent 7205fd9382
commit 9981eead1b

View file

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