git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1539 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
		
			
				
	
	
		
			17 lines
		
	
	
		
			370 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			17 lines
		
	
	
		
			370 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| 
 | |
| :- protocol(term_expansionp).
 | |
| 
 | |
| 	:- info([
 | |
| 		version is 1.0,
 | |
| 		author is 'Paulo Moura',
 | |
| 		date is 2006/2/5,
 | |
| 		comment is 'Term expansion protocol.']).
 | |
| 
 | |
| 	:- public(term_expansion/2).
 | |
| 	:- mode(term_expansion(?term, ?term), zero_or_more).
 | |
| 	:- info(term_expansion/2,
 | |
| 		[comment is 'Expands a term into a new term.',
 | |
| 		 argnames is ['Term', 'Expansion']]).
 | |
| 
 | |
| :- end_protocol.
 |