From 2e7f0b37ba104f359041f682ccbef3c43035f3f0 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:24:15 +0000
Subject: [PATCH] lilypond-1.1.65

---
 input/bugs/core.ly            | 11 +++++++++++
 lily/include/my-lily-lexer.hh |  2 ++
 lily/my-lily-lexer.cc         |  8 ++++++++
 3 files changed, 21 insertions(+)
 create mode 100644 input/bugs/core.ly

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());
+}
-- 
2.39.5