yap-6.3/pl/depth_bound.yap

/*************************************************************************
*									 *
*	 YAP Prolog 							 *
*									 *
*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
*									 *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
*									 *
**************************************************************************
*									 *
* File:		corout.pl						 *
* Last rev:								 *
* mods:									 *
* comments:	Coroutines implementation				 *
*									 *
*************************************************************************/

:- system_module( '$_depth_bound', [depth_bound_call/2], []).

%depth_bound_call(A,D) :-
%write(depth_bound_call(A,D)), nl, fail.
depth_bound_call(A,D) :-
	'$execute_under_depth_limit'(A,D).
This commit was generated by cvs2svn to compensate for changes in r4, which included commits to RCS files with non-trunk default branches. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2001-04-09 20:54:03 +01:00			`/*************************************************************************`
			`* *`
			`* YAP Prolog *`
			`* *`
			`* Yap Prolog was developed at NCCUP - Universidade do Porto *`
			`* *`
			`* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *`
			`* *`
			`**************************************************************************`
			`* *`
			`* File: corout.pl *`
			`* Last rev: *`
			`* mods: *`
			`* comments: Coroutines implementation *`
			`* *`
			`*************************************************************************/`

fix string_concat/2 2014-04-09 12:39:29 +01:00			`:- system_module( '$_depth_bound', [depth_bound_call/2], []).`

This commit was generated by cvs2svn to compensate for changes in r4, which included commits to RCS files with non-trunk default branches. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2001-04-09 20:54:03 +01:00			`%depth_bound_call(A,D) :-`
			`%write(depth_bound_call(A,D)), nl, fail.`
more fixes for indexing code stable stuff git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@867 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2003-09-15 02:25:29 +01:00			`depth_bound_call(A,D) :-`
			`'$execute_under_depth_limit'(A,D).`
This commit was generated by cvs2svn to compensate for changes in r4, which included commits to RCS files with non-trunk default branches. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2001-04-09 20:54:03 +01:00