*** empty log message ***

diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 8d3aa4b4ba23d382be7d4711d2013311bae45b2a..71a9df5d3292dad73d60800a127a0f1908365139 100644 (file)
--- 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 b4d003b76431dc01db8a2ef35e2042540c0a8bc9..dee8a9e3c53c19af1e053ab8a541101492929be0 100644 (file)
--- 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 abf238871a2a395a8ec4b6e0debdd92af66614dc..87dcaa68e907c359045c7ab54564beca8d72fcac 100644 (file)
--- 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"))