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

current_predicate should bever export prolog:(_:_)

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@597 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-09-17 16:37:48 +00:00
parent 2c1cb9b4bb
commit d6778dac3a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/stdpreds.c
View File

@ -1398,6 +1398,8 @@ cont_current_predicate(void)
if (pp == NULL) if (pp == NULL)
cut_fail(); cut_fail();
EXTRA_CBACK_ARG(3,1) = (CELL)MkIntegerTerm((Int)(pp->NextPredOfModule)); EXTRA_CBACK_ARG(3,1) = (CELL)MkIntegerTerm((Int)(pp->NextPredOfModule));
if (pp->FunctorOfPred == FunctorModule)
return(FALSE);
Arity = pp->ArityOfPE; Arity = pp->ArityOfPE;
if (Arity) if (Arity)
name = NameOfFunctor(pp->FunctorOfPred); name = NameOfFunctor(pp->FunctorOfPred);