- Minor improvement to type flaw output: now also shows the type of the
substituted term.
This commit is contained in:
parent
053a76e5fb
commit
48574de13e
@ -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>");
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user