diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix list of atoms (Paulo Moura obs)

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-12-02 02:34:28 +00:00
parent 7038ea1958
commit 2c5fa4a65e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
H/YapText.h
View File

@ -117,14 +117,14 @@ static inline seq_type_t
mod_to_type( Term mod USES_REGS ) mod_to_type( Term mod USES_REGS )
{ {
unsigned int flags = Yap_GetModuleEntry(mod)->flags; unsigned int flags = Yap_GetModuleEntry(mod)->flags;
if (!(flags & DBLQ_MASK)) { if (flags & DBLQ_ATOM) {
return YAP_STRING_CODES; return YAP_STRING_ATOM;
} else if (flags & DBLQ_STRING) { } else if (flags & DBLQ_STRING) {
return YAP_STRING_STRING; return YAP_STRING_STRING;
} else if (flags & DBLQ_CHARS) { } else if (flags & DBLQ_CHARS) {
return YAP_STRING_CHARS; return YAP_STRING_ATOMS;
} }
return YAP_STRING_ATOM; return YAP_STRING_CODES;
} }
// the routines // the routines