js like apply, bind, curry...

gistfile1.io

Block apply := method(target, args,
    args = if(args isNil, list(), args)
    target = if(target isNil, scope, target)
    self setScope(target)
    self performWithArgList("call", args)
)
Block bind := method(
    args := call message argsEvaluatedIn(call sender)
    target := args at(0)
    args = args slice(1)
    b := self
    return block(
        b apply(target, args union(call message argsEvaluatedIn(call sender)))
    )
)
Block curry := method(
    args := call message argsEvaluatedIn(call sender)
    if(args size < 1) then (
        return self
    )
    /*
    target := args at(0)
    args = args slice(1)
    */
    b := self
    return block(
        b apply(scope, args union(call message argsEvaluatedIn(call sender)))
    )
)

hoge := Object clone do(
    message := "ishoge"
)
foo := Object clone do(
    message := "isfoo"
)

promp := block(a, b,
    "#{self message} at #{a}, #{b}" asMutable interpolate println
)

promp setScope(hoge)
a := promp curry("aaa")
a call("bbb")

b := promp bind(foo, "ccc")
b call("ddd")