patch::: 1.3.37.jcn2

[lilypond.git] / lily / include / lily-guile.icc

diff --git a/lily/include/lily-guile.icc b/lily/include/lily-guile.icc
index 1152117f207397fbe943e8ddaed6d29e926e2f40..aeeefc5338c515a23f046691945886f17600c991 100644 (file)
--- a/lily/include/lily-guile.icc
+++ b/lily/include/lily-guile.icc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1999 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 1999--2000 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #ifndef LILY_GUILE_ICC
@@ -25,14 +25,16 @@ array_to_scm (Array<T> arr)
   Array<T> scm_to_array (SCM s)
 
   check scm?
+
+  UGH. junkme.
  */
 template<class T>void
 scm_to_array (SCM s, Array<T>* arr)
 {
+  arr->clear ();
   for (; gh_pair_p (s); s= gh_cdr (s))
     {
-      T t;
-      scm_to (gh_car (s), &t);
+      T t = scm_to (gh_car (s), (T*) 0);
       arr->push (t);
     }
 }