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

Implement and document predicates for ldict and lset.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-09 22:03:30 +02:00
parent 0d649c2fd0
commit c0cfa0721f
3 changed files with 26 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -32,6 +32,8 @@
make-lset
lset?
lset-empty?
lset-member?
@ -67,6 +69,11 @@
(list TAG-LSET
(list equality?))))
;; Returns true if given value is lset
(define (lset? v)
(and (pair? v)
(eq? (car v) TAG-LSET)))
;; Convenience accessors
(define lset-meta cadr)
(define lset-equality? caadr)