Execute statements (ie. messages) in reverse

execute_in_reverse.io

#!/usr/bin/env io

# see :  http://news.ycombinator.com/item?id=2144880

executeInReverse := method (
    m     := call argAt(0)
    stmts := list()              // list of statements (ie. messages)

    loop (
        rest := m next           // rest of messages after current 
        stmts append(m setNext)  // get current message
        m := rest
        if (m == nil, break)     // exhausted statements when "nil"
    )

    stmts reverseForeach (n, doMessage(n))
)

executeInReverse( writeln("Hi") writeln("Middle") writeln("Bye") )