あー…
http://d.hatena.ne.jp/sumim/20051009/p1
selfがいるんですね…今日のお昼に同じことやってできなくて一人泣いていました。これは self じゃないならレシーバは何になってるんだろう…と思ったけど調べ切れず。
悔しいからソースぺたっと。
fib_maker := block(f, block(x, if (x <= 1, 1, f(x-1) + f(x-2)))) fix := block(G, G(block(x, fix(self getSlot("G")) performOn(x)))) fib := fix(getSlot("fib_maker")) write(fib(5), "\n")