X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Farticulations.cc;h=334e4386828e6e0d2a86ace8dad0586b11f6565e;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=28a81a6cf55e26c22b04584ee6424b8b58aaecaa;hpb=08560a1b8076630c4fc6cb9b902614d8b74fd6fc;p=lilypond.git

diff --git a/lily/articulations.cc b/lily/articulations.cc
index 28a81a6cf5..334e438682 100644
--- a/lily/articulations.cc
+++ b/lily/articulations.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2010--2012 Carl Sorensen <c_sorensen@byu.edu>
+  Copyright (C) 2010--2015 Carl Sorensen <c_sorensen@byu.edu>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -38,7 +38,6 @@ articulation_list (vector<Stream_event *> note_events,
                    vector<Stream_event *> articulation_events,
                    char const *articulation_name)
 {
-  vector<Stream_event *> string_events;
   SCM articulations = SCM_EOL;
   vsize j = 0;
 
@@ -57,7 +56,7 @@ articulation_list (vector<Stream_event *> note_events,
       for (SCM s = event->get_property ("articulations");
            !articulation_event && scm_is_pair (s); s = scm_cdr (s))
         {
-          Stream_event *art = unsmob_stream_event (scm_car (s));
+          Stream_event *art = unsmob<Stream_event> (scm_car (s));
 
           if (art->in_event_class (articulation_name))
             articulation_event = art;
@@ -81,5 +80,5 @@ articulation_list (vector<Stream_event *> note_events,
                                 articulations);
     }
 
-  return (scm_reverse (articulations));
+  return scm_reverse_x (articulations, SCM_EOL);
 }