RosettaCodeData/Task/Stack-traces/Erlang/stack-traces.erl

19 lines
253 B
Erlang
Raw Permalink Normal View History

2013-10-27 22:24:23 +00:00
-module(stack_traces).
-export([main/0]).
main() ->
{ok,A} = outer(),
io:format("~p\n", [A]).
outer() ->
{ok,A} = middle(),
{ok,A}.
middle() ->
{ok,A} = inner(),
{ok,A}.
inner() ->
try throw(42) catch 42 -> {ok,erlang:get_stacktrace()} end.