# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1189504786 -3600
# Node ID f4e7892c017fb10ffd2fef5ce315fbc449e957b6
# Parent  56c2fc41a837a4ee88ec035494ac0d8982d2fd5d
utils/utils.lisp: fix thinko

darcs-hash:20070911095946-c0ce4-da8f28f3e35344ce8bd587d28a873adb4a48e3be.gz

diff -r 56c2fc41a837 -r f4e7892c017f utils/utils.lisp
--- a/utils/utils.lisp	Tue Sep 11 10:44:02 2007 +0100
+++ b/utils/utils.lisp	Tue Sep 11 10:59:46 2007 +0100
@@ -34,7 +34,7 @@
       (incf s (if (disjoint tempo object1)
 		  0
 		  (* (/ (duration (period-intersection tempo object1))
-			(duration (crotchet object2)))
+			(duration (crotchet constituent)))
 		     (amuse:microseconds-per-crotchet tempo)))))))
 (defmethod beats-to-seconds ((object1 standard-moment)
 			     (object2 constituent))