iensure we have LD.
This commit is contained in:
parent
c74cc23940
commit
65c7b4250a
@ -42,7 +42,8 @@ PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
|
|||||||
|
|
||||||
int
|
int
|
||||||
PL_get_atom_ex(term_t t, atom_t *a)
|
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;
|
succeed;
|
||||||
|
|
||||||
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
||||||
|
Reference in New Issue
Block a user