* lily/my-lily-lexer.cc (My_lily_lexer): copy keytable.
2004-05-30 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * lily/my-lily-parser.cc (parse_string): delete lexer after use.
+
* lily/my-lily-lexer.cc (My_lily_lexer): copy keytable.
* lily/include/paper-book.hh (class Paper_book): remove height_
My_lily_lexer::My_lily_lexer (Sources *sources)
-
{
keytable_ = new Keyword_table (the_key_tab);
encoding_ = SCM_EOL;
delete keytable_;
}
-
-
SCM
My_lily_lexer::encoding () const
{
parent->error_level_ = lexer_->error_level_;
parent->main_input_b_ = lexer_->main_input_b_;
}
+
+ delete lexer_;
+ lexer_ = 0;
}
void
{
My_lily_parser *parser = unsmob_my_lily_parser (parser_smob);
My_lily_parser *clone = new My_lily_parser (*parser);
+
+ /*
+ FIXME: should copy scopes too.
+ */
return scm_gc_unprotect_object (clone->self_scm ());
}