16 lines
304 B
AppleScript
16 lines
304 B
AppleScript
on accumulator(n)
|
|
-- Returns a new script object
|
|
-- containing a handler.
|
|
script
|
|
on call(i)
|
|
set n to n + i -- Returns n.
|
|
end call
|
|
end script
|
|
end accumulator
|
|
|
|
set x to accumulator(10)
|
|
log x's call(1)
|
|
set y to accumulator(5)
|
|
log y's call(2)
|
|
log x's call(3.5)
|
|
-- Event Log: (*11*) (*7*) (*14.5*)
|