+My_lily_lexer::My_lily_lexer (My_lily_lexer const &src)
+ : Includable_lexer ()
+{
+ keytable_ = (src.keytable_) ? new Keyword_table (*src.keytable_) : 0;
+ encoding_ = src.encoding_;
+ chordmodifier_tab_ = src.chordmodifier_tab_;
+ pitchname_tab_stack_ = src.pitchname_tab_stack_;
+ sources_ = src.sources_;
+
+ error_level_ = src.error_level_;
+ main_input_b_ = src.main_input_b_;
+
+ SCM scopes = SCM_EOL;
+ SCM* tail = &scopes;
+ for (SCM s = src.scopes_; ly_c_pair_p (s); s = ly_cdr (s))
+ {
+ SCM newmod = ly_make_anonymous_module (false);
+ ly_import_module (newmod, ly_car (s));
+ *tail = scm_cons (newmod, SCM_EOL);
+ tail = SCM_CDRLOC (*tail);
+ }
+
+ scopes_ = scopes;