* scm/output-ps.scm (new-text): new function. Use glyphshow to

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 0ec8b3195d51a05134d7a7c09ad81f5bfdfed36e..acf7ff41e1029e70e852041305872c4c207380a5 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -123,9 +123,17 @@ found."
       ))
  
 ;;;;;;;;;;;;;;;;
-;; hash
-
+;; vector
+(define-public (vector-for-each proc vec)
+  (do
+      ((i 0 (1+ i)))
+      ((>= i (vector-length vec)) vec)
+    
+    (vector-set! vec i
+                (proc (vector-ref vec i)))))
 
+;;;;;;;;;;;;;;;;
+;; hash
 
 (if (not (defined? 'hash-table?))      ; guile 1.6 compat
     (begin