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

Default equality for list->lset, more testing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 22:45:57 +02:00
parent ed8a11a5d8
commit 6c1ce73c70
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/util-set-list.scm
View file

@ -217,6 +217,12 @@
(lset->list (lset->list
(list->lset '(1 2 3 1 2)))) (list->lset '(1 2 3 1 2))))
3) 3)
(test-equal? lset-merge
(lset-count
(lset-merge
(list->lset '(1 2 3 1 2))
(list->lset '(2 3 4 2 3))))
4)
)) ))
) )