/tutorial/backtracking/tiny_prolog/prolog_atom.e
http://github.com/tybor/Liberty · Specman e · 17 lines · 17 code · 0 blank · 0 comment · 0 complexity · 8ce329924739cfc661721cc446b85b1a MD5 · raw file
- class PROLOG_ATOM
- inherit
- COMPARABLE
- HASHABLE
- PROLOG_TERM
- feature
- type: INTEGER is type_atom
- name: STRING
- infix "<"(other: like Current): BOOLEAN is
- do
- Result := name < other.name
- end
- hash_code: INTEGER is
- do
- Result := name.hash_code
- end
- end