fix single name passing
This commit is contained in:
parent
77c51f476f
commit
8ad0cba7fe
@ -689,7 +689,7 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
|
|||||||
else
|
else
|
||||||
rd->singles = FALSE;
|
rd->singles = FALSE;
|
||||||
} else if (rd->singles) {
|
} else if (rd->singles) {
|
||||||
if (!Yap_unify( rd->singles, Yap_GetFromSlot( v PASS_REGS )))
|
if (!Yap_unify( v, Yap_GetFromSlot( rd->singles PASS_REGS )))
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user