From 7040b81cc19586a66dc67c1a68ffcc2f1b6c1a3d Mon Sep 17 00:00:00 2001
From: kroger <kroger>
Date: Thu, 24 Mar 2005 23:52:09 +0000
Subject: [PATCH] fixed withtags

---
 ChangeLog                  |  5 +++++
 ly/music-functions-init.ly | 13 +++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

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))
 
 
-- 
2.39.5