/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1998--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+ Copyright (C) 1998--2015 Jan Nieuwenhuizen <janneke@gnu.org>
Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
if (!ly_is_procedure (val)
- && !is_simple_closure (val)
+ && !Simple_closure::is_smob (val)
&& !type_check_assignment (sym, val, ly_symbol2scm ("backend-type?")))
error ("typecheck failed");
LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
LY_ASSERT_TYPE (scm_is_integer, beg, 3);
LY_ASSERT_TYPE (scm_is_integer, end, 4);
- if (val == SCM_UNDEFINED)
+ if (SCM_UNBNDP (val))
val = SCM_EOL;
SCM retval = sc->internal_get_pure_property (sym, scm_to_int (beg), scm_to_int (end));
- if (retval == SCM_EOL)
+ if (scm_is_null (retval))
retval = val;
return retval;
LY_ASSERT_SMOB (Grob, refp, 2);
LY_ASSERT_TYPE (scm_is_integer, beg, 3);
LY_ASSERT_TYPE (scm_is_integer, end, 4);
- if (val == SCM_UNDEFINED)
+ if (SCM_UNBNDP (val))
val = SCM_EOL;
Interval retval = sc->pure_height (ref, scm_to_int (beg), scm_to_int (end));
LY_ASSERT_SMOB (Grob, grob, 1);
LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
- if (val == SCM_UNDEFINED)
+ if (SCM_UNBNDP (val))
val = SCM_EOL;
- SCM retval = sc->internal_get_property (sym);
- if (retval == SCM_EOL)
+ SCM retval = sc->get_property (sym);
+ if (scm_is_null (retval))
retval = val;
return retval;
LY_ASSERT_SMOB (Grob, grob, 1);
- if (global == SCM_UNDEFINED)
+ if (SCM_UNBNDP (global))
{
global = sc->layout ()->lookup_variable (ly_symbol2scm ("font-defaults"));
- if (global == SCM_UNDEFINED)
+ if (SCM_UNBNDP (global))
global = SCM_EOL;
}
Grob *gr = Grob::unsmob (grob);
LY_ASSERT_SMOB (Grob, grob, 1);
- SCM_ASSERT_TYPE (ly_is_procedure (proc) || is_unpure_pure_container (proc), proc, SCM_ARG2, __FUNCTION__, "procedure or unpure pure container");
+ SCM_ASSERT_TYPE (ly_is_procedure (proc) || Unpure_pure_container::is_smob (proc), proc, SCM_ARG2, __FUNCTION__, "procedure or unpure pure container");
LY_ASSERT_TYPE (ly_is_symbol, sym, 3);
chain_callback (gr, proc, sym);