comparison implementations/mtp/methods.lisp @ 99:43d3e707b384

implementations/mtp/: fix cut-n-paste error in GROUND-TRUTH-SEGMENTER-AFTER

darcs-hash:20070724150730-c0ce4-bba46180f6644e91c420f153ea7982411b0e5180.gz

   (declare (ignore c))
   (make-instance 'mtp-before-segmenter))
 
 (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))
   (make-instance 'mtp-before-segmenter))
 
 (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))
   (let ((phrase (%mtp-phrase e)))
     (case phrase