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_;