fixed withtags

diff --git a/ChangeLog b/ChangeLog
index f5bd7e89c86ea4d1789aad87cf4351485148b288..f47a3650e9b54328b9ffb8ad816c4e20cef144e5 100644 (file)
--- 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 1d29068a7d07b52c361304b95a9853dc7e748f82..d9993e2fb1768529c1b1335be5e7da5017d87621 100644 (file)
--- 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))