*** empty log message ***

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 882445dae340a1cad09e36e4342554d37e635c5c..c10fe8241cb09a0eb92061a158db0f7177aa7cd4 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -162,6 +162,13 @@
            (map-alist-keys func (cdr list)))
       ))
  
+;;;;;;;;;;;;;;;;
+;; hash
+
+
+
+(if (not (defined? 'hash-table?))      ; guile 1.6 compat
+    (define hash-table? vector?))
 
 (define-public (hash-table->alist t)
   "Convert table t to list"