be more restrictive about atom_codes.
This commit is contained in:
parent
afa085de28
commit
4138e46955
@ -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))
|
||||
|
Reference in New Issue
Block a user