diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix stack_dump

Browse Source
This commit is contained in:
Vitor Santos Costa
2008-08-25 15:20:18 +01:00
parent a6b9d096a6
commit 8169ef0343
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
pl/hacks.yap
View File

@@ -104,7 +104,7 @@ show_cp(CP, Continuation) -->
[Addr, Continuation, ClNo, Mod]]
),
{clean_goal(Goal,Mod,G)},
['~@.~q~n' - write_term(G,Opts)].
['~@.~n' - write_term(G,Opts)].
show_env(Env,Cont,NCont) -->
{
@@ -114,7 +114,7 @@ show_env(Env,Cont,NCont) -->
[ '0x~16r~t ~16+ Cur~t ~d~16+ ~q:' -
[Addr, ClId, Mod] ],
{scratch_goal(Name, Arity, Mod, G)},
['~@.~q~n' - write_term(G,Opts)].
['~@.~n' - write_term(G,Opts)].
clean_goal(G,Mod,NG) :-
beautify_hidden_goal(G,Mod,[NG],[]), !.