/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2003--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2003--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
{
SCM entry = scm_c_vector_ref (font_vector, i);
- if (scm_promise_p (entry) == SCM_BOOL_T)
+ if (to_boolean (scm_promise_p (entry)))
{
Font_metric *fm = Font_metric::unsmob (scm_force (entry));
size = fm->design_size ();