From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 28 Jan 2006 00:02:02 +0000 (+0000)
Subject: (not): define hash-for-each for guile 1.6
X-Git-Tag: release/2.7.30~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=920d8abeb968629bbf993792df4e49b1f8f72559;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index 8cf5660fc8..ed29d797f4 100644
--- 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 5b42e4f420..2c364187b3 100644
--- 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))))