fix assembly of table_try_single (report from Paolo Frasconi).
This commit is contained in:
parent
ca3177889c
commit
6e17b2053f
@ -3087,7 +3087,7 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
|
|||||||
}
|
}
|
||||||
code_p = cl_u->sc.ClCode;
|
code_p = cl_u->sc.ClCode;
|
||||||
}
|
}
|
||||||
IPredArity = cip->cpc->rnd2; /* number of args */
|
IPredArity = cip->CurrentPred->ArityOfPE; /* number of args */
|
||||||
*entry_codep = code_p;
|
*entry_codep = code_p;
|
||||||
if (tabled) {
|
if (tabled) {
|
||||||
#if TABLING
|
#if TABLING
|
||||||
|
Reference in New Issue
Block a user