From 2c5fa4a65ec0e4c428b0d9e3be601f0a287acd71 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Tue, 2 Dec 2014 02:34:28 +0000 Subject: [PATCH] fix list of atoms (Paulo Moura obs) --- H/YapText.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/H/YapText.h b/H/YapText.h index e2c4ae5d8..327340422 100644 --- a/H/YapText.h +++ b/H/YapText.h @@ -117,14 +117,14 @@ static inline seq_type_t mod_to_type( Term mod USES_REGS ) { unsigned int flags = Yap_GetModuleEntry(mod)->flags; - if (!(flags & DBLQ_MASK)) { - return YAP_STRING_CODES; + if (flags & DBLQ_ATOM) { + return YAP_STRING_ATOM; } else if (flags & DBLQ_STRING) { return YAP_STRING_STRING; } else if (flags & DBLQ_CHARS) { - return YAP_STRING_CHARS; + return YAP_STRING_ATOMS; } - return YAP_STRING_ATOM; + return YAP_STRING_CODES; } // the routines