be more restrictive about atom_codes.

This commit is contained in:
Vítor Santos Costa 2016-02-13 20:18:10 +00:00
parent afa085de28
commit 4138e46955

View File

@ -806,8 +806,7 @@ static inline Term Yap_ListOfCodesToString(Term t0 USES_REGS) {
static inline Atom Yap_ListToAtom(Term t0 USES_REGS) {
seq_tv_t inp, out;
inp.val.t = t0;
inp.type = YAP_STRING_STRING | YAP_STRING_ATOMS_CODES | YAP_STRING_TERM |
YAP_STRING_ATOM;
inp.type = YAP_STRING_ATOMS_CODES;
out.val.uc = NULL;
out.type = YAP_STRING_ATOM;
if (!Yap_CVT_Text(&inp, &out PASS_REGS))