On Thu, Oct 17, 2013 at 12:41 AM, Thiago Negri <evohunz@gmail.com> wrote:

The only hit I get in DuckDuckGo was this: http://sigkill.dk/programs/arrows/

I've tried things like this, and I couldn't make it work.

Yet I've copy&pasted the code, and it worked! Even with the "loop_bufid" test!

If it's any consolation, feed 'er this:

arrswap2 :: SP (a,b) (b,a)
arrswap2 = let r = Get(\(a1,b1) -> Get(\(a2,b2) -> Put (b1,a1) (Put (b2,a2) r))) in r

-- Kim-Ee