Mercurial > hg > amuse
changeset 141:f4e7892c017f
utils/utils.lisp: fix thinko
darcs-hash:20070911095946-c0ce4-da8f28f3e35344ce8bd587d28a873adb4a48e3be.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 11 Sep 2007 10:59:46 +0100 |
| parents | 56c2fc41a837 |
| children | 7ed6a263f844 |
| files | utils/utils.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))