fix single name passing

This commit is contained in:
Vítor Santos Costa 2014-07-08 15:01:42 +01:00
parent 77c51f476f
commit 8ad0cba7fe

View File

@ -689,7 +689,7 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
else
rd->singles = FALSE;
} 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;
}
}