* very subtle mirror-in-field bug fixed (sort stability issue in yas/calculate-adjacencies)

This commit is contained in:
capitaomorte 2009-11-17 16:31:10 +00:00
parent dcdd007f32
commit 791d866957

View File

@ -3194,7 +3194,9 @@ has to be called before the $-constructs are deleted."
(t (t
(setf (yas/exit-next fom) nextfom)))) (setf (yas/exit-next fom) nextfom))))
(yas/compare-fom-begs (fom1 fom2) (yas/compare-fom-begs (fom1 fom2)
(>= (yas/fom-start fom2) (yas/fom-start fom1))) (if (= (yas/fom-start fom2) (yas/fom-start fom1))
(yas/mirror-p fom2)
(>= (yas/fom-start fom2) (yas/fom-start fom1))))
(yas/link-foms (fom1 fom2) (yas/link-foms (fom1 fom2)
(yas/fom-set-next-fom fom1 fom2))) (yas/fom-set-next-fom fom1 fom2)))
;; make some yas/field, yas/mirror and yas/exit soup ;; make some yas/field, yas/mirror and yas/exit soup