Update syntax (alias instead of infix). (commit by Conaclos)

git-svn-id: https://svn.eiffel.com/eiffel-org/trunk@1413 abb3cda0-5349-4a8f-a601-0c33ac3a8c38
This commit is contained in:
jfiat
2015-02-18 10:18:46 +00:00
parent a3a2228830
commit c99a878431

View File

@@ -30,24 +30,24 @@ deferred class
feature -- Comparison feature -- Comparison
infix "<" (other: like Current): BOOLEAN is_less alias "<" (other: like Current): BOOLEAN
-- Is current object less than `other'? -- Is current object less than `other'?
deferred deferred
end end
infix "<=" (other: like Current): BOOLEAN is_less_equal alias "<=" (other: like Current): BOOLEAN
-- Is current object less than or equal to `other'? -- Is current object less than or equal to `other'?
do do
Result := not (other < Current) Result := not (other < Current)
end end
infix ">" (other: like Current): BOOLEAN is_greater alias ">" (other: like Current): BOOLEAN
-- Is current object greater than `other'? -- Is current object greater than `other'?
do do
Result := other < Current Result := other < Current
end end
infix ">=" (other: like Current): BOOLEAN is_greater_equal alias ">=" (other: like Current): BOOLEAN
-- Is current object greater than or equal to `other'? -- Is current object greater than or equal to `other'?
do do
Result := not (Current < other) Result := not (Current < other)