ELENA overload operators

gistfile1.txt

#define system.
#define extensions.

#class MyNumber
{
    #field theValue.
    
    #constructor new : aValue
    [
        theValue := aValue.
    ]
    
    #method add : aValue
    [
        #var x := theValue.
        #var y := aValue.
        
        #loop (y != 0)?
        [
            #var carry := x && y.
            x := x ^^ y.
            y := carry shift &index:-1.
        ].
        
        ^ MyNumber new:x.
    ]
    
    #method => theValue.
}

#symbol program =
[
    consoleEx writeLine:"Sum............: 20+20=":(MyNumber new:20 + 20).
].

Statement "#method => theValue" means that incoming messages are redirected to
theValue if no mapping exists in MyClass.