- 32 名前：7 mailto:sage [2008/02/06(水) 03:16:47 ]
- 無理矢理解決してみた。
v := 0
inc := method(
res := nil
recv := call target
cntxt := call sender
cntxt foreachSlot(name, value,
if (recv == cntxt getSlot(name),
res = cntxt setSlot(name, cntxt getSlot(name) + 1)
)
)
msg := call message
right := msg argAt(0)
msg setArguments(list())
msg setNext(right)
res ++ := Lobby getSlot("inc")
res
)
v ++ := getSlot("inc")
v println
(v ++ ++ ++ println)
v println
