-M: object before? ( obj1 obj2 -- ? ) <=> +lt+ eq? ; inline
-M: object after? ( obj1 obj2 -- ? ) <=> +gt+ eq? ; inline
-M: object before=? ( obj1 obj2 -- ? ) <=> +gt+ eq? not ; inline
-M: object after=? ( obj1 obj2 -- ? ) <=> +lt+ eq? not ; inline
-
-M: real before? ( obj1 obj2 -- ? ) < ; inline
-M: real after? ( obj1 obj2 -- ? ) > ; inline
-M: real before=? ( obj1 obj2 -- ? ) <= ; inline
-M: real after=? ( obj1 obj2 -- ? ) >= ; inline
+M: object before? <=> +lt+ eq? ; inline
+M: object after? <=> +gt+ eq? ; inline
+M: object before=? <=> +gt+ eq? not ; inline
+M: object after=? <=> +lt+ eq? not ; inline
+
+M: real before? < ; inline
+M: real after? > ; inline
+M: real before=? <= ; inline
+M: real after=? >= ; inline