/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2005--2012 Erik Sandberg <mandolaerik@gmail.com>
+ Copyright (C) 2005--2015 Erik Sandberg <mandolaerik@gmail.com>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
Stream_event ();
VIRTUAL_COPY_CONSTRUCTOR (Stream_event, Stream_event);
+ static Stream_event *unsmob (SCM s) {
+ return dynamic_cast <Stream_event *> (Prob::unsmob (s));
+ }
+ static bool is_smob (SCM s) {
+ return Prob::is_smob (s) && unsmob (s);
+ }
+
Stream_event (SCM event_class, SCM immutable_props = SCM_EOL);
Stream_event (SCM class_name, Input *);
#define in_event_class(class_name) internal_in_event_class (ly_symbol2scm (class_name))
-Stream_event *unsmob_stream_event (SCM);
SCM ly_event_deep_copy (SCM);
#endif /* STREAM_EVENT_HH */