iensure we have LD.

This commit is contained in:
Vitor Santos Costa 2011-12-07 08:39:56 -08:00
parent c74cc23940
commit 65c7b4250a

View File

@ -42,7 +42,8 @@ PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
int
PL_get_atom_ex(term_t t, atom_t *a)
{ if ( PL_get_atom(t, a) )
{ GET_LD
if ( PL_get_atom(t, a) )
succeed;
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);