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 9fb611a64b017eaa066a7242fd6dbec6d448263e..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,6 +25,8 @@ 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)
@@ -32,8 +34,7 @@ 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);
     }
 }