Mercurial > hg > amuse

changeset 71:6884aed85d61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implementations/mtp/methods.lisp: oops darcs-hash:20070706114225-c0ce4-01f94676b16788622aca6fbfe624608211b54b31.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Fri, 06 Jul 2007 12:42:25 +0100
parents 19a4ad162cf9
children 9960645779f0
files implementations/mtp/methods.lisp
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Fri Jul 06 12:39:32 2007 +0100
+++ b/implementations/mtp/methods.lisp	Fri Jul 06 12:42:25 2007 +0100
@@ -169,9 +169,9 @@
 
 (defmethod get-applicable-tempi ((e mtp-event) c)
   (declare (ignore c))
-  (list (amuse:make-tempo (%mtp-tempo event) 
-                          (timepoint event) 
-                          (duration event))))
+  (list (amuse:make-tempo (%mtp-tempo e) 
+                          (timepoint e) 
+                          (duration e))))
 
 (defmethod tempi ((c mtp-composition)) 
   (let ((results nil)