Permalink
Browse files

Fix exception_trace return when using {Mod, Func, [return]} style RTP

  • Loading branch information...
1 parent 2e9d8b8 commit 0564de4ac5679e1a44779bb71734c1a783752862 @slfritchie slfritchie committed Apr 19, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/redbug.erl
  2. +1 −1 src/redbug_msc.erl
View
@@ -368,7 +368,7 @@ chk_rtp(X) -> exit({bad_rtp,X}).
ms(MS) -> foldl(fun msf/2, [{'_',[],[]}], MS).
msf(stack,[{Head,Cond,Body}]) -> [{Head,Cond,[{message,{process_dump}}|Body]}];
-msf(return,[{Head,Cond,Body}])-> [{Head,Cond,[{return_trace}|Body]}];
+msf(return,[{Head,Cond,Body}])-> [{Head,Cond,[{exception_trace}|Body]}];
msf(Ari, [{_,Cond,Body}]) when is_integer(Ari)-> [{mk_head(Ari),Cond,Body}];
msf({Head,Cond},[{_,_,Body}]) when is_tuple(Head)->[{Head,slist(Cond),Body}];
msf(Head, [{_,Cond,Body}]) when is_tuple(Head)-> [{Head,Cond,Body}];
View
@@ -45,7 +45,7 @@ compile_acts(As) ->
[ac_fun(A)|| A <- As].
ac_fun("stack") -> {message,{process_dump}};
-ac_fun("return")-> {exception_trace}; %{return_trace}; %backward compatible?
+ac_fun("return")-> {exception_trace};
ac_fun(X) -> exit({unknown_action,X}).
compile_guards(Gs,Vars) ->

0 comments on commit 0564de4

Please sign in to comment.