* lily/lily-guile.cc (alist_to_hashq): new function

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 65e40d0c2b4cfb7b6a0d6b060f56684f131599be..882445dae340a1cad09e36e4342554d37e635c5c 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -163,6 +163,25 @@
       ))
  
 
+(define-public (hash-table->alist t)
+  "Convert table t to list"
+  (apply append
+        (vector->list t)
+  ))
+
+;; todo: code dup with C++. 
+(define-public (alist->hash-table l)
+  "Convert alist to table"
+  (let
+      ((m (make-hash-table (length l))))
+
+    (map (lambda (k-v)
+          (hashq-set! m (car k-v) (cdr k-v)))
+        l)
+
+    m))
+       
+
 
 ;;;;;;;;;;;;;;;;
 ; list
@@ -383,7 +402,6 @@ L1 is copied, L2 not.
        "define-translator-properties.scm"
        "translation-functions.scm"
        "script.scm"
-       "drums.scm"
        "midi.scm"
 
        "beam.scm"