summaryrefslogtreecommitdiff
path: root/eval.c
diff options
context:
space:
mode:
authorPeter Mikkelsen <peter@pmikkelsen.com>2021-06-30 20:51:02 +0000
committerPeter Mikkelsen <peter@pmikkelsen.com>2021-06-30 20:51:02 +0000
commitff418c798b580204f6fea5512adc36835f8b7efa (patch)
tree71c24b829c2a037653e302adb680f4237fc2a6bb /eval.c
parenta8b1fadd149126e9c8d3081a56d206812211f1e6 (diff)
Add comparison predicates
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 3a6ab38..3477141 100644
--- a/eval.c
+++ b/eval.c
@@ -6,7 +6,6 @@
Goal *addgoals(Goal *, Term *);
Term *findclause(Term *, Term *, Binding **);
-int unify(Term *, Term *, Binding **);
int equalterms(Term *, Term *);
void applybinding(Term *, Binding *);
Goal *copygoals(Goal *);
@@ -77,6 +76,7 @@ Retry:
Backtrack:
if(choicestack == nil)
return 0;
+ print("Backtracking..\n");
Choicepoint *cp = choicestack;
choicestack = cp->next;
/* freegoals(goals) */