From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 9 Jun 2005 18:26:01 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.5.30~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5d86f6395ed423a276e5641dda991a8c615ff0d9;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 8d3aa4b4ba..71a9df5d32 100644
--- a/lily/include/source-file.hh
+++ b/lily/include/source-file.hh
@@ -61,7 +61,7 @@ public:
   */
   char const *pos_str0_;
 
-  SCM get_port () const { return str_port_; }
+  SCM get_port () const;
   String name_;
 
 private:
diff --git a/lily/source-file.cc b/lily/source-file.cc
index b4d003b764..dee8a9e3c5 100644
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -282,9 +282,8 @@ Source_file::get_counts (char const *pos_str0,
       line_chars += thislen;
       left -= thislen;
     }
-
-
 }
+
 bool
 Source_file::contains (char const* pos_str0) const
 {
@@ -373,3 +372,9 @@ Source_file::get_string (int n)
   String str = String ((Byte const *)forward_str0 (n), n);
   return str;
 }
+
+SCM
+Source_file::get_port () const
+{
+  return str_port_; 
+}
diff --git a/scm/lily.scm b/scm/lily.scm
index abf238871a..87dcaa68e9 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -268,6 +268,7 @@ The syntax is the same as `define*-public'."
 		    (lambda (a b)
 		      (< (object-address (car a))
 			 (object-address (car b))))))
+	 
 	 (out-file-name (string-append
 			 "gcstat-" (number->string gc-protect-stat-count)
 			 ".scm"))