diff options
Diffstat (limited to 'guix-data-service/utils.scm')
| -rw-r--r-- | guix-data-service/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm index 7357a40..c91b10b 100644 --- a/guix-data-service/utils.scm +++ b/guix-data-service/utils.scm @@ -417,7 +417,7 @@ available. Return the resource once PROC has returned." #t) -(define (delete-duplicates/sort! unsorted-lst less) +(define* (delete-duplicates/sort! unsorted-lst less #:optional (equal? equal?)) (if (null? unsorted-lst) unsorted-lst (let ((sorted-lst (sort! unsorted-lst less))) @@ -428,7 +428,7 @@ available. Return the resource once PROC has returned." (if (null? lst) result (let ((current-element (car lst))) - (if (eq? current-element last-element) + (if (equal? current-element last-element) (loop (cdr lst) last-element result) |