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

Remove attempt to emulate SWI I/O

Browse Source 
add YAP_getcwd and PL_cwd to interface
This commit is contained in:
Vítor Santos Costa
2008-12-13 16:07:55 +00:00
parent e0531d0743
commit 2b0c27deb6
8 changed files with 86 additions and 1137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
C/compiler.c
View File

@@ -871,11 +871,17 @@ c_eq(Term t1, Term t2, compiler_struct *cglobs)
}
}
/* first argument is an unbound var */
c_var(t1, 0, 0, 0, cglobs);
cglobs->onhead = TRUE;
if (IsNewVar(t1)) {
c_var(t1, 0, 0, 0, cglobs);
} else {
c_var(t1, 0, 0, 0, cglobs);
cglobs->onhead = TRUE;
}
if (IsVarTerm(t2)) {
cglobs->onhead = TRUE;
c_var(t2, 0, 0, 0, cglobs);
} else {
cglobs->onhead = TRUE;
c_arg(0, t2, 0, 0, cglobs);
}
cglobs->onhead = FALSE;