latest swi flgs

This commit is contained in:
Vítor Santos Costa
2013-11-13 23:48:54 +00:00
parent 14747fd0bf
commit 5b46b6bd1a
4 changed files with 83 additions and 53 deletions

View File

@@ -161,8 +161,8 @@ atomLength(Atom atom)
#define isTaggedInt(A) IsIntegerTerm(A)
#define valInt(A) IntegerOfTerm(A)
#define MODULE_user Yap_GetModuleEntry(Yap_LookupAtom("user"))
#define MODULE_system Yap_GetModuleEntry(Yap_LookupAtom("system"))
#define MODULE_user Yap_GetModuleEntry(MkAtomTerm(Yap_LookupAtom("user")))
#define MODULE_system Yap_GetModuleEntry(MkAtomTerm(Yap_LookupAtom("system")))
#define MODULE_parse Yap_GetModuleEntry(LOCAL_SourceModule)
extern term_t Yap_CvtTerm(term_t ts);