From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:12 +0000 (+0000)
Subject: lilypond-1.3.68
X-Git-Tag: release/1.5.59~1509
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cb3d5f22b18f42ab295fd31997d2bbdc6e676577;p=lilypond.git

lilypond-1.3.68
---

diff --git a/input/test/generic-output-property.ly b/input/test/generic-output-property.ly
index 0e7d2695b7..5adbba97c8 100644
--- a/input/test/generic-output-property.ly
+++ b/input/test/generic-output-property.ly
@@ -1,11 +1,11 @@
 \score{
 	\notes\relative c''{
-  	\outputproperty #(make-type-checker 'Note_head) 
+  	\outputproperty #(make-type-checker 'note-head-interface) 
 		#'extra-offset = #'(2 . 3)
   	c2
 	c
 	\context Score {
-		\outputproperty #(make-type-checker 'Mark) 
+		\outputproperty #(make-type-checker 'mark-interface) 
 		#'extra-offset = #'(-1 . 4)
 	}
 	\mark A;
diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index 5ab553257f..b7e18f9aa4 100644
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -94,12 +94,9 @@ Paper_column::column_l () const
   return (Paper_column*)(this);
 }
 
-Paper_column::Paper_column (Moment w)
-  : Item (SCM_EOL)		// guh.?
+Paper_column::Paper_column (SCM l)
+  : Item (l)		// guh.?
 {
-  SCM when = smobify (new Moment (w));
-  set_elt_property ("when", when);
-
   Axis_group_interface (this).set_interface ();
   Axis_group_interface (this).set_axes (X_AXIS, X_AXIS);
   set_elt_pointer ("bounded-by-me", SCM_EOL);