From: Pedro Kroger <kroeger@pedrokroeger.net>
Date: Thu, 24 Mar 2005 23:52:09 +0000 (+0000)
Subject: fixed withtags
X-Git-Tag: release/2.5.17~46
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=133672fb2f4cf22b621924973fef8916b155ed01;p=lilypond.git

fixed withtags
---

diff --git a/ChangeLog b/ChangeLog
index f5bd7e89c8..f47a3650e9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-24  Pedro Kroger  <kroeger@pedrokroeger.net>
+
+	* ly/music-functions-init.ly (removeWithTag): fixed to return "music".
+
+
 2005-03-23  Graham Percival  <gperlist@shaw.ca>
 
 	* Documentation/user/basic-notation.itely: fixed info about
diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 1d29068a7d..d9993e2fb1 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -58,8 +58,9 @@ removeWithTag =
   (music-filter
    (lambda (m)
     (let* ((tags (ly:music-property m 'tags))
-	    (res (memq tag tags)))
-       (not res)))))
+           (res (memq tag tags)))
+     (not res)))
+ music))
 	      
 keepWithTag =
 #(def-music-function
@@ -67,10 +68,10 @@ keepWithTag =
   (music-filter
    (lambda (m)
     (let* ((tags (ly:music-property m 'tags))
-	   (res (memq tag tags)))
-       (or
-	(eq? tags '())
-	(memq tag tags))))
+           (res (memq tag tags)))
+     (or
+      (eq? tags '())
+      res)))
    music))