- set_property ("finalizations" , SCM_EOL);
- for (SCM s = lst ; ly_c_pair_p (s); s = ly_cdr (s))
- {
- scm_primitive_eval (ly_car (s)); // TODO: make safe.
- }
+ set_property ("finalizations", SCM_EOL);
+ for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
+
+ /* TODO: make safe. */
+ scm_primitive_eval (scm_car (s));