(not): define hash-for-each for guile 1.6

diff --git a/ChangeLog b/ChangeLog
index 8cf5660fc8588c1ae4c2c5f0e4f2455c47b01a4e..ed29d797f4cedb0f2461821c8307ccceda1aad7a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-01-28  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/lily-library.scm (not): define hash-for-each for guile 1.6
+
        * lily/slur-scoring.cc (get_best_curve): handle opt_idx < 0 case.
 
 2006-01-27  Jan Nieuwenhuizen  <janneke@gnu.org>

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 5b42e4f4208ec9a11915d0eff0d4f75e0cff497f..2c364187b377e49e0eecd729b98989ed3103b7c4 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -204,7 +204,12 @@ found."
 (if (not (defined? 'hash-table?)) ;; guile 1.6 compat
     (begin
       (define hash-table? vector?)
-
+      (define-public (hash-for-each proc tab)
+       (hash-fold (lambda (k v prior)
+                    (proc k v)
+                    #f)
+                  #f
+                  tab))
       (define-public (hash-table->alist t)
        "Convert table t to list"
        (apply append (vector->list t))))