From 73af011348e4227036dad38785c0242db5e64491 Mon Sep 17 00:00:00 2001 From: hanwen Date: Sat, 28 Jan 2006 00:02:02 +0000 Subject: [PATCH] (not): define hash-for-each for guile 1.6 --- ChangeLog | 2 ++ scm/lily-library.scm | 7 ++++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8cf5660fc8..ed29d797f4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-01-28 Han-Wen Nienhuys + * 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 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)))) -- 2.39.5