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

linting

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 16:39:04 +00:00
parent a26dbe0dfc
commit 4224382be1
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/attvar.c
View File

@ -469,8 +469,7 @@ p_put_att( USES_REGS1 ) {
if (!Yap_gcl(LOCAL_Error_Size, 5, ENV, gc_P(P,CP))) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE;
}
inp = Deref(ARG1);
}
}
new = TRUE;
}
@ -549,7 +548,6 @@ p_rm_att( USES_REGS1 ) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE;
}
inp = Deref(ARG1);
}
new = TRUE;
Yap_unify(ARG1, AbsAttVar(attv));
@ -586,7 +584,6 @@ p_put_atts( USES_REGS1 ) {
Functor mfun = FunctorOfTerm(tatts);
int new = FALSE;
tatts = Deref(ARG2);
if (IsAttachedTerm(inp)) {
attv = RepAttVar(VarOfTerm(inp));
} else {
@ -596,7 +593,6 @@ p_put_atts( USES_REGS1 ) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE;
}
tatts = Deref(ARG2);
}
new = TRUE;
Yap_unify(ARG1, AbsAttVar(attv));