From 65c7b4250afa9e993493f4164c80787ce53b7498 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Wed, 7 Dec 2011 08:39:56 -0800 Subject: [PATCH] iensure we have LD. --- os/pl-error.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/os/pl-error.c b/os/pl-error.c index 43ede40b2..f0ec697e1 100644 --- a/os/pl-error.c +++ b/os/pl-error.c @@ -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);