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

style_checker was failing on DCGs 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1722 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-11-17 12:10:46 +00:00
parent 1d49a93d76
commit 93fd5bf9d5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/checker.yap
View File

@ -11,8 +11,11 @@
* File: checker.yap *
* comments: style checker for Prolog *
* *
* Last rev: $Date: 2006-03-24 16:26:31 $,$Author: vsc $ *
* Last rev: $Date: 2006-11-17 12:10:46 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.21 2006/03/24 16:26:31 vsc
* code review
*
* Revision 1.20 2005/11/05 23:56:10 vsc
* should have meta-predicate definitions for calls,
* multifile and discontiguous.
@ -164,7 +167,7 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
'$xtract_head'((H,_),OM,M,H1,Name,Arity) :- !,
'$xtract_head'(H,OM,M,H1,Name,Arity).
'$xtract_head'((H-->_),OM,M,HL,Name,Arity) :- !,
'$xtract_head'(H,M,OM,M,Name,A1),
'$xtract_head'(H,M,OM,_,Name,A1),
Arity is A1+2,
functor(HL,Name,Arity).
'$xtract_head'(M:H,_,NM,NH,Name,Arity) :- !,