From: fred <fred>
Date: Tue, 26 Mar 2002 22:24:15 +0000 (+0000)
Subject: lilypond-1.1.65
X-Git-Tag: release/1.5.59~2232
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2e7f0b37ba104f359041f682ccbef3c43035f3f0;p=lilypond.git

lilypond-1.1.65
---

diff --git a/input/bugs/core.ly b/input/bugs/core.ly
new file mode 100644
index 0000000000..ef4cb12e69
--- /dev/null
+++ b/input/bugs/core.ly
@@ -0,0 +1,11 @@
+
+text = \lyrics \repeat "fold" 2 {}
+\alternative {
+	foo bar
+	afoo abar
+}
+
+
+\score {
+\text
+}
diff --git a/lily/include/my-lily-lexer.hh b/lily/include/my-lily-lexer.hh
index c56e1a910a..cc86ccdac1 100644
--- a/lily/include/my-lily-lexer.hh
+++ b/lily/include/my-lily-lexer.hh
@@ -44,6 +44,8 @@ public:
   ~My_lily_lexer ();
   int yylex ();
 
+  Input here_input () const;
+
   void start_main_input ();
   bool notename_b (String) const;
   bool chordmodifier_b (String) const;
diff --git a/lily/my-lily-lexer.cc b/lily/my-lily-lexer.cc
index 8e73971984..00e55ae4db 100644
--- a/lily/my-lily-lexer.cc
+++ b/lily/my-lily-lexer.cc
@@ -18,6 +18,7 @@
 #include "source-file.hh"
 #include "main.hh"
 #include "scope.hh"
+#include "input.hh"
 
 static Keyword_ent the_key_tab[]={
   {"spanrequest", SPANREQUEST},
@@ -231,3 +232,10 @@ My_lily_lexer::escaped_char(char c) const
     }
   return 0;
 }
+
+Input
+My_lily_lexer::here_input () const
+{
+  Source_file * f_l= source_file_l();
+  return Input (f_l, here_ch_C());
+}