Mercurial > hg > amuse
changeset 226:64b795c2ff18
Fix bug in move-to-first-bar.
Ignore-this: 52a48e8771d159294e9ad51cbe04034d
darcs-hash:20090905200027-16a00-539b473b27ebd6b75282dac335cc8617403ed3ad.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | 6f0881af3403 |
| children | bda591c61b7a |
| files | base/methods.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/base/methods.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/base/methods.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -572,7 +572,7 @@ ;; Copying events in time (defmethod move-to-first-bar ((composition composition)) - (let ((offset (floor (timepoint (car composition))))) + (let ((offset (floor (timepoint (elt composition 0))))) (loop for event in (%list-slot-sequence-data composition) do (setf event (copy-event event))