#include "text-interface.hh"
-#include <math.h>
#include "main.hh"
#include "config.hh"
}
else
{
- programming_error ("not a markup: ");
+ programming_error ("Object is not a markup. ");
+ scm_puts ("This object should be a markup: ", scm_current_error_port ());
scm_display (markup, scm_current_error_port ());
- abort();
+ scm_puts ("\n", scm_current_error_port ());
+
Box b;
b[X_AXIS].set_empty ();
b[Y_AXIS].set_empty ();
SCM t = me->get_property ("text");
SCM chain = Font_interface::text_font_alist_chain (me);
- return interpret_markup (me->get_layout ()->self_scm (), chain, t);
+ return interpret_markup (me->layout ()->self_scm (), chain, t);
}
/* Ugh. Duplicated from Scheme. */