Macros for displaying stacktrace information in erlang

stacktrace.hrl

-define(callstack(), 
	try throw(generate_stack)
	catch
	    throw:generate_stack ->
		erlang:get_stacktrace()
	end).

-define(printstack(),
	PrintFrame = fun({Mod, Fun, Ari}) ->
			     io:format("  at ~w:~w/~w~n", [Mod, Fun, Ari])
		     end,
	lists:map(PrintFrame, ?callstack())).