/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--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
virtual Moment now_mom () const;
virtual Context *get_default_interpreter (const string &context_id = "");
+ static Global_context *unsmob (SCM x) {
+ return dynamic_cast<Global_context *> (Context::unsmob (x));
+ }
+ static bool is_smob (SCM x) {
+ return Context::is_smob (x) && unsmob (x);
+ }
+
Moment previous_moment () const;
protected:
Moment prev_mom_;
};
SCM ly_format_output (SCM);
-Global_context *Global_context::unsmob (SCM x);
#endif // GLOBAL_CONTEXT_HH