- Fixed a bug in subst reporting, when substitutions are compund terms.

2004-08-14 18:08:59 +00:00 · 2004-08-14 18:08:59 +00:00 · b6598ea8f4
commit b6598ea8f4
parent 911e9e4e94
1 changed files with 9 additions and 2 deletions
--- a/src/mgu.c
+++ b/src/mgu.c
@ -54,8 +54,15 @@ termMguTerm (Term t1, Term t2)
    termPrint (t);
    printf (", typed ");
    termlistPrint (t->stype);
+    if (realTermLeaf (t->subst))
+      {
 	printf ("->");
 	termlistPrint (t->subst->stype);
+      }
+    else
+      {
+	printf (", composite term");
+      }
    printf ("\n");
  }
 #endif