Mercurial > hg > amuse

changeset 99:43d3e707b384

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implementations/mtp/: fix cut-n-paste error in GROUND-TRUTH-SEGMENTER-AFTER darcs-hash:20070724150730-c0ce4-bba46180f6644e91c420f153ea7982411b0e5180.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Tue, 24 Jul 2007 16:07:30 +0100
parents cb7576b21c8e
children ad9cca28fecf
files implementations/mtp/methods.lisp
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Tue Jul 24 14:51:09 2007 +0100
+++ b/implementations/mtp/methods.lisp	Tue Jul 24 16:07:30 2007 +0100
@@ -280,7 +280,7 @@
 
 (defmethod ground-truth-segmenter-after ((c mtp-composition))
   (declare (ignore c))
-  (make-instance 'mtp-before-segmenter))
+  (make-instance 'mtp-after-segmenter))
 
 (defmethod ground-truth-segmenter-before ((e mtp-event))
   (declare (ignore e))
@@ -288,7 +288,7 @@
 
 (defmethod ground-truth-segmenter-after ((e mtp-event))
   (declare (ignore e))
-  (make-instance 'mtp-before-segmenter))
+  (make-instance 'mtp-after-segmenter))
 
 (defmethod boundary-strength ((s mtp-before-segmenter) (e mtp-event) c)
   (declare (ignore s c))