put chr back to life

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2265 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-06-08 08:05:11 +00:00
parent ea139a37c6
commit 87fcf6233c
3 changed files with 4 additions and 6 deletions
--- a/library/rbtrees.yap
+++ b/library/rbtrees.yap
@@ -923,7 +923,7 @@ is_rbtree(t(_,T)) :-
 is_rbtree(X,_) :-
 	var(X), !, fail.
 is_rbtree(T,Goal) :-
-	catch(rbtree1(T), msg(S,Args), format(S,Args)).
+	catch(rbtree1(T), msg(S,Args), (once(Goal),format(S,Args))).

 %
 % This code checks if a tree is ordered and a rbtree