From 9981eead1b749fab4748fe92d8924b1bbfb49c18 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 12 Jul 2023 18:48:12 +0200 Subject: [PATCH] Fix set algebra. --- src/util-bst-lset.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util-bst-lset.scm b/src/util-bst-lset.scm index 0a255d1..921a78f 100644 --- a/src/util-bst-lset.scm +++ b/src/util-bst-lset.scm @@ -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)) )