new file: perform drum notes.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index c10fe8241cb09a0eb92061a158db0f7177aa7cd4..5a73f5155371678eb7916e3a04b58c2a77aa90cb 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -168,13 +168,23 @@
 
 
 (if (not (defined? 'hash-table?))      ; guile 1.6 compat
-    (define hash-table? vector?))
+    (begin
+      (define hash-table? vector?)
 
-(define-public (hash-table->alist t)
-  "Convert table t to list"
-  (apply append
-        (vector->list t)
-  ))
+      (define-public (hash-table->alist t)
+       "Convert table t to list"
+       (apply append
+              (vector->list t)
+              )))
+
+    ;; native hashtabs.
+    (begin
+      (define-public (hash-table->alist t)
+
+       (hash-fold (lambda (k v acc) (acons  k v  acc))
+                  '() t)
+       )
+      ))
 
 ;; todo: code dup with C++. 
 (define-public (alist->hash-table l)