please have a look at this. It outputs "greater" (in build 7501).
Regards
Martin
Code: Select all
interface obj{@Type}
properties
value : @Type (o).
end interface obj
class obj{@Type} : obj{@Type}
constructors
new : (@Type).
end class obj
implement obj{@Type}
facts
value : @Type.
clauses
new(Value) :-
value := Value.
end implement obj
%---
implement main
clauses
run() :-
Obj = obj::new('\u0000'),
stdIo::write(compare(Obj:value, '\u0000')).
end implement main