/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2004--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+ Copyright (C) 2004--2015 Jan Nieuwenhuizen <janneke@gnu.org>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
return systems_;
}
-int
-Paper_book::print_smob (SCM smob, SCM port, scm_print_state *)
-{
- Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
- (void)b;
- scm_puts ("#<Paper_book>", port);
- return 1;
-}
-
Output_def *
Paper_book::top_paper ()
{
paper_->self_scm (),
scopes);
- if (Stencil::unsmob (tit))
+ if (Stencil::is_smob (tit))
title = *Stencil::unsmob (tit);
if (!title.is_empty ())
paper_->self_scm (),
scopes);
- if (Stencil::unsmob (tit))
+ if (Stencil::is_smob (tit))
title = *Stencil::unsmob (tit);
if (!title.is_empty ())
if (scm_is_pair (system_specs))
set_system_penalty (scm_car (system_specs), header);
- if (Prob::unsmob (title))
+ if (Prob::is_smob (title))
{
system_specs = scm_cons (title, system_specs);
Prob::unsmob (title)->unprotect ();