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

Implement set equality.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 13:49:28 +02:00
parent 30664d10f8
commit 575c1cdb3d
7 changed files with 44 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/member-record.scm
View file

@ -354,10 +354,11 @@
member-record
(test-equal? make-member-record
(make-member-record '|1234| "members/1234" '(|member|))
'((file-name . |1234|)
(make-ldict
'((file-name . |1234|)
(file-path . "members/1234")
(symlinks |member|)
(id . 1234)))
(id . 1234))))
(test-equal? make-member-record
(make-member-record '|1234| "members/1234" '(|member|) #:msg "msg")
'((msg . "msg")