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

use swi flags whenever possible

Browse Source
This commit is contained in:
Vítor Santos Costa
2013-11-04 01:14:48 +00:00
parent 0f62de3744
commit ad0ff98f1a
14 changed files with 344 additions and 404 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/iopreds.c
View File

@@ -334,11 +334,7 @@ syntax_error (TokEntry * tokptr, IOSTREAM *st, Term *outp)
{
char s[2];
s[1] = '\0';
if (Ord (info) == 'l') {
s[0] = '(';
} else {
s[0] = (char)info;
}
s[0] = (char)info;
ts[0] = MkAtomTerm(Yap_LookupAtom(s));
}
}
@@ -561,7 +557,6 @@ static Int
Term tcomms = Deref(ARG7);
int store_comments = IsVarTerm(tcomms);
Yap_setCurrentSourceLocation(&inp_stream);
if (IsVarTerm(tmod)) {
tmod = CurrentModule;
} else if (!IsAtomTerm(tmod)) {