support for passing priority as argument to write. (Ulrich's #45).

fixes on making write handle infinite loops
This commit is contained in:
Vitor Santos Costa
2009-05-22 13:24:27 -05:00
parent e1421f207e
commit 51e669dcfb
13 changed files with 154 additions and 77 deletions

View File

@@ -324,7 +324,7 @@ write_address(CELL address)
{
if (address < (CELL)AtomBase) {
Yap_DebugErrorPutc('L');
Yap_DebugPlWrite (MkIntTerm (address));
Yap_DebugPlWrite(MkIntTerm (address));
} else if (address == (CELL) FAILCODE) {
Yap_DebugPlWrite (MkAtomTerm (AtomFail));
} else {