- Minor improvement to type flaw output: now also shows the type of the

substituted term.
This commit is contained in:
ccremers 2005-09-07 07:21:13 +00:00
parent 053a76e5fb
commit 48574de13e

View File

@ -381,6 +381,11 @@ xmlTermType (const Term t)
} }
//! Show a typeflaw of a single term //! Show a typeflaw of a single term
/**
* Shows the variable, its type, then the substituted term, and its type.
* For constants, the second term type is typically emtpy. This is only useful
* when the substituted term is also a variable.
*/
void void
xmlTypeFlaw (const Term variable) xmlTypeFlaw (const Term variable)
{ {
@ -389,9 +394,7 @@ xmlTypeFlaw (const Term variable)
xmlPrint ("<typeflaw>"); xmlPrint ("<typeflaw>");
xmlindent++; xmlindent++;
xmlTermType (variable); xmlTermType (variable);
xmlIndentPrint (); xmlTermType (deVar (variable));
xmlTermPrint (deVar (variable));
printf ("\n");
xmlindent--; xmlindent--;
xmlPrint ("</typeflaw>"); xmlPrint ("</typeflaw>");
} }