handle Z=[X,Z], X=y(X)

2019-02-17 23:19:26 +00:00
parent 6a3c4bda79
commit 79d2330e71
6 changed files with 39 additions and 49 deletions
--- a/library/hacks.yap
+++ b/library/hacks.yap
@@ -68,15 +68,6 @@ run_formats([], _).
 run_formats([Com-Args|StackInfo], Stream) :-
 	format(Stream, Com, Args),
 	run_formats(StackInfo, user_error).
-/**
- * @pred parent_choicepoint(+_ChoicePoint_)
- *
- * _ChoicePoint_ is the parent of the current choice-point.
- *
- */
-parent_choicepoint(BP) :-
-	current_choicepoint(B),
-	parent_choicepoint(B, BP).


 /**