From 6a28b0a02ba9f95b163da78d8d209424f488eada Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 28 Mar 2002 18:48:55 +0000
Subject: [PATCH] portray within debugger may not be debugged.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@423 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/write.c       | 9 +++++++++
 changes4.3.html | 2 ++
 pl/debug.yap    | 5 +++++
 3 files changed, 16 insertions(+)

diff --git a/C/write.c b/C/write.c
index ebd4d7bf3..0ccc43640 100644
--- a/C/write.c
+++ b/C/write.c
@@ -220,6 +220,15 @@ putAtom(Atom atom)			/* writes an atom	 */
   char           *s = RepAtom(atom)->StrOfAE;
   wtype          atom_or_symbol = AtomIsSymbols(s);
 
+#define CRYPT_FOR_STEVE 1
+#ifdef CRYPT_FOR_STEVE
+  if (GetValue(LookupAtom("crypt_atoms")) != TermNil && GetAProp(atom, OpProperty) == NIL) {
+    char s[16];
+    sprintf(s,"x%x", (CELL)s);
+    wrputs(s);
+    return;
+  }
+#endif
   if (lastw == atom_or_symbol && atom_or_symbol != separator /* solo */)
     wrputc(' ');
   lastw = atom_or_symbol;
diff --git a/changes4.3.html b/changes4.3.html
index ee5f96c80..70b0a56a0 100644
--- a/changes4.3.html
+++ b/changes4.3.html
@@ -16,6 +16,8 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: debugger could enter infinite loop if spying
+	portray (Steve Moyle).</li>
 	<li>FIXED: predicate_property(P,source) (Ines Dutra).</li>
 	<li>NEW: use system regex routines if available.</li>
 	<li>FIXED: profiling.</li>
diff --git a/pl/debug.yap b/pl/debug.yap
index 8e8fb544f..322cdcb5e 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -768,6 +768,9 @@ debugging :-
 	flush_output(user_error),
 	'$get_value'(debug,1),
 	repeat,
+	        '$set_value'(debug,0),
+	        '$get_value'('$trace',OldTrace),
+	        '$set_value'('$trace',0),
 		('$pred_being_spied'(G,Module) -> write(user_error,'*') ; write(user_error,' ')),
 		( SL = L -> write(user_error,'>') ; write(user_error,' ')),
 		write(user_error,' ('), write(user_error,L), write(user_error,') '),
@@ -777,6 +780,8 @@ debugging :-
 		   true
 		),
 		'$debugger_write'(user_error,G),
+	        '$set_value'(debug,1),
+	        '$set_value'('$trace',OldTrace),
 		( 
 		  '$unleashed'(P),
 		  nl(user_error)