/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2001--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2001--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
{
again:
- if (Grob::unsmob (src))
+ if (Grob::is_smob (src))
{
Grob *new_ptr = substitute_grob (Grob::unsmob (src));
return new_ptr ? new_ptr->self_scm () : SCM_UNDEFINED;
set_break_subsititution (l ? l->self_scm () : SCM_UNDEFINED);
SCM newval = sc->internal_get_object (sym);
- if (!Grob_array::unsmob (newval))
+ if (!Grob_array::is_smob (newval))
{
newval = Grob_array::make_array ();
sc->set_object (sym, newval);
if (grob_array)
{
SCM newval = sc->internal_get_object (sym);
- if (!Grob_array::unsmob (newval))
+ if (!Grob_array::is_smob (newval))
{
newval = Grob_array::make_array ();
sc->set_object (sym, newval);