fix printing of opaque terms.

This commit is contained in:
Vitor Santos Costa 2012-12-10 12:47:01 +00:00
parent b34c8b1b2c
commit 7b579b810f

View File

@ -282,7 +282,7 @@ writebig(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, stru
blob_info = big_tag - USER_BLOB_START;
if (GLOBAL_OpaqueHandlers &&
(f= GLOBAL_OpaqueHandlers[blob_info].write_handler)) {
(f)(wglb->stream, big_tag, (void *)((MP_INT *)(pt+1)), 0);
(f)(wglb->stream, big_tag, ExternalBlobFromTerm(t), 0);
}
}
wrputs("0",wglb->stream);