/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2005--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2005--2011 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
Lily_parser *parser = unsmob_lily_parser (parser_smob);
LY_ASSERT_TYPE (scm_is_string, ly_code, 2);
- parser->parse_string (ly_scm2string (ly_code));
+ if (!parser->lexer_->is_clean ())
+ parser->parser_error (_ ("ly:parser-parse-string is only valid with a new parser."
+ " Use ly:parser-include-string instead."));
+ else
+ parser->parse_string (ly_scm2string (ly_code));
return SCM_UNSPECIFIED;
}