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

Corrected a bug in the implementation of call_with_args/4 (not accepting closures for the first argument).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1693 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2006-09-25 10:51:28 +00:00
parent 4ff41f7a62
commit 0f5379cd41
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/exec.c
View File

@ -741,10 +741,6 @@ p_execute_3(void)
Term mod = Deref(ARG5); Term mod = Deref(ARG5);
Prop pe; Prop pe;
if (!IsAtomTerm(t)) {
Yap_Error(TYPE_ERROR_ATOM,ARG1,"call_with_args/4");
return(FALSE);
}
if (IsAtomTerm(t)) { if (IsAtomTerm(t)) {
Atom a; Atom a;
a = AtomOfTerm(t); a = AtomOfTerm(t);
@ -759,7 +755,7 @@ p_execute_3(void)
CELL *ptr; CELL *ptr;
if (IsExtensionFunctor(f)) { if (IsExtensionFunctor(f)) {
Yap_Error(TYPE_ERROR_CALLABLE, t, "call_with_args/2"); Yap_Error(TYPE_ERROR_CALLABLE, t, "call_with_args/4");
return(FALSE); return(FALSE);
} }
Arity = ArityOfFunctor(f); Arity = ArityOfFunctor(f);