From a4a44d90fd0bf8cd01d7491e6a8aba610c893031 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 6 Jan 2008 16:30:29 -0200 Subject: [PATCH] Bugfix: uniq-list uses equal? iso. eq?. This fixes duplicate embedded fonts in the PS files. --- scm/lily-library.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index c925a808f1..ae13bbebf0 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -309,13 +309,13 @@ found." (lset-difference eq? a b)) (define-public (uniq-list lst) - "Uniq LST, assuming that it is sorted" + "Uniq LST, assuming that it is sorted. Uses equal? for comparisons." (reverse! (fold (lambda (x acc) (if (null? acc) (list x) - (if (eq? x (car acc)) + (if (equal? x (car acc)) acc (cons x acc)))) '() lst) '())) -- 2.39.5