Test printing ST with -Wall & OTP20

pp_stack_inside_try_catch.erl

%% Copyright © 2017 Pierre Fenoll ‹[email protected]›
%% See LICENSE for licensing information.
%% -*- coding: utf-8 -*-

%% @module Test printing ST with -Wall & OTP20
-module(pp_stack_inside_try_catch).

-export([m/1]).


%% API

m(Arg) ->
    try Arg + 1 of
        1 ->
            catch throw(lol),
            print_ST(); %%non-empty ST
        _ ->
            %% empty ST
            print_ST()
    catch _:_ ->
            %% non-empty ST
            print_ST()
    end.

%% Internals

print_ST() ->
    ST = erlang:get_stacktrace(),
    io:format(">>> ST ~p\n", [ST]).

%% End of Module.