From cba58043bdff70052f2bb411806f9e438380ae10 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 29 Sep 2014 20:52:46 +0200 Subject: [PATCH] Issue 4140: Let ly:output-def? be implemented via Smob_base --- lily/include/output-def.hh | 1 + lily/output-def-scheme.cc | 9 ++------- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/lily/include/output-def.hh b/lily/include/output-def.hh index 518171120a..dc15ba9d0f 100644 --- a/lily/include/output-def.hh +++ b/lily/include/output-def.hh @@ -51,6 +51,7 @@ class Output_def : public Smob public: static int print_smob (SCM, SCM, scm_print_state *); SCM mark_smob (); + static const char type_p_name_[]; virtual ~Output_def (); VIRTUAL_COPY_CONSTRUCTOR (Output_def, Output_def); diff --git a/lily/output-def-scheme.cc b/lily/output-def-scheme.cc index 552ccbe36b..7b33582082 100644 --- a/lily/output-def-scheme.cc +++ b/lily/output-def-scheme.cc @@ -131,13 +131,8 @@ LY_DEFINE (ly_output_find_context_def, "ly:output-find-context-def", return ell; } - -LY_DEFINE (ly_output_def_p, "ly:output-def?", - 1, 0, 0, (SCM def), - "Is @var{def} an output definition?") -{ - return ly_bool2scm (Output_def::unsmob (def)); -} +const char +Output_def::type_p_name_[] = "ly:output-def?"; LY_DEFINE (ly_paper_outputscale, "ly:paper-outputscale", 1, 0, 0, (SCM def), -- 2.39.5