# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1183722145 -3600
# Node ID 6884aed85d618a489fb972cffb211d5e3f7cc89d
# Parent  19a4ad162cf931f93090e79cc4669d232afbd266
implementations/mtp/methods.lisp: oops

darcs-hash:20070706114225-c0ce4-01f94676b16788622aca6fbfe624608211b54b31.gz

diff -r 19a4ad162cf9 -r 6884aed85d61 implementations/mtp/methods.lisp
--- 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)