recursive_func_eval.escript

main([]) ->
    Func = fun(Self, Value) ->
        io:format("loop : ~p\n", [Value]),
        Bindings = erl_eval:add_binding('Self', Self, erl_eval:add_binding('Value', Value, erl_eval:new_bindings())),
        erl_eval:exprs(Self, Bindings)
    end,

    {env, [{_, _, _, Abs}]} = erlang:fun_info(Func, env),

    Expression = {'fun', 1, {clauses, Abs}},

    Self = [{match, 1, {var, 1, 'Expr'}, Expression}, {call, 1, {var, 1, 'Expr'}, [{var, 1, 'Self'}, {var, 1, 'Value'}]}],

    erl_eval:exprs(Self, erl_eval:add_binding('Self', Self, erl_eval:add_binding('Value', 22, erl_eval:new_bindings()))).