diff options
Diffstat (limited to 'guix-data-service/model/license-set.scm')
| -rw-r--r-- | guix-data-service/model/license-set.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-data-service/model/license-set.scm b/guix-data-service/model/license-set.scm index cff68b7..102d838 100644 --- a/guix-data-service/model/license-set.scm +++ b/guix-data-service/model/license-set.scm @@ -77,7 +77,12 @@ FROM license_sets") ((null? a) #f) ((null? b) #t) (else - (< (car a) (car b)))))))) + (let ((a1 (car a)) + (b1 (car b))) + (if (= a1 b1) + (loop (cdr a) + (cdr b)) + (< a1 b1))))))))) (new-license-set-entries (if (null? missing-license-sets) '() |