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

Support numbers, symbols and strings in ldict comparator.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-07 12:54:27 +02:00
parent 5a1d5ee841
commit d59e34f2ba
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/util-bst-ldict.scm
View file

@ -29,8 +29,10 @@
(define (ldict<? a b) (define (ldict<? a b)
(if (number? a) (if (number? a)
(< a b) (< a b)
(string<? (symbol->string a) (if (string? a)
(symbol->string b)))) (string<? a b)
(string<? (symbol->string a)
(symbol->string b)))))
(define (make-ldict . equality?/pairs) (define (make-ldict . equality?/pairs)
(let ((equality? (if (or (null? equality?/pairs) (let ((equality? (if (or (null? equality?/pairs)