X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Flily-lexer.hh;fp=lily%2Finclude%2Flily-lexer.hh;h=ff78cf9901bc3f2155c7046bbfd8b64f5e134be0;hb=652ed35a2013489d0a14fede6307cd2595abb2c4;hp=4bc4cbe887403eb685cecf84442c2f741ad0f7f7;hpb=0ac07f31e0f95fc18e5916ce756b9c746af7cc58;p=lilypond.git diff --git a/lily/include/lily-lexer.hh b/lily/include/lily-lexer.hh index 4bc4cbe887..ff78cf9901 100644 --- a/lily/include/lily-lexer.hh +++ b/lily/include/lily-lexer.hh @@ -51,9 +51,13 @@ private: SCM start_module_; int hidden_state_; Input override_input_; - SCM eval_scm (SCM, char extra_token = 0); + SCM eval_scm (SCM, Input, char extra_token = 0); public: - SCM eval_scm_token (SCM sval) { return eval_scm (sval, '#'); } + SCM eval_scm_token (SCM sval, Input w) + { + w.step_forward (); + return eval_scm (sval, w, '#'); + } SCM extra_tokens_; SCM *lexval_; Input *lexloc_;