From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 6 Jan 2008 18:30:29 +0000 (-0200)
Subject: Bugfix: uniq-list uses equal? iso. eq?.
X-Git-Tag: release/2.11.38-1~60^2~4^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a4a44d90fd0bf8cd01d7491e6a8aba610c893031;p=lilypond.git

Bugfix: uniq-list uses equal? iso. eq?.

This fixes duplicate embedded fonts in the PS files.
---

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) '()))