2009-08-24 03:26:13 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								! Copyright (C) 2009 Slava Pestov.  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								! See http://factorcode.org/license.txt for BSD license.  
						 
					
						
							
								
									
										
										
										
											2014-04-13 20:02:26 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								USING:  destructors  help.markup  help.syntax  help.tips  quotations  sequences  ;
  
						 
					
						
							
								
									
										
										
										
											2009-08-24 03:26:13 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								IN:  tools.destructors  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  disposables.  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $description "Print the number of disposable objects of each class."  } ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
									
										
										
										
											2014-04-13 20:02:26 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								HELP:  leaks.  
						 
					
						
							
								
									
										
										
										
											2009-08-24 03:26:13 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								{ $values
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								    { "quot"  quotation }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								}
							 
						 
					
						
							
								
									
										
										
										
											2009-08-24 22:44:48 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "Runs a quotation, printing any increases in the number of disposable objects after the quotation returns. The "  { $link debug-leaks? } " variable is also switched on while the quotation runs, recording the current continuation in every newly-created disposable object."  } ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
									
										
										
										
											2014-04-13 20:02:26 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								HELP:  leaks  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $values
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								  { "quot"  quotation }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								  { "disposables"  sequence  }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								}
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $description
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								  "Runs the quotation and collects all disposables leaked by it. Used by "  { $link leaks. } "." 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								} ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								TIP: "Use the "  { $link leaks. } " combinator to track down resource leaks."  ;
 
							 
						 
					
						
							
								
									
										
										
										
											2009-08-24 03:26:13 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								ARTICLE: "tools.destructors"  "Destructor tools" 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								"The "  { $vocab-link "tools.destructors"  } " vocabulary provides words for tracking down resource leaks."  
						 
					
						
							
								
									
										
										
										
											2009-10-01 15:56:36 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $subsections
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								    debug-leaks?
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								    disposables.
							 
						 
					
						
							
								
									
										
										
										
											2014-04-13 20:02:26 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								    leaks.
							 
						 
					
						
							
								
									
										
										
										
											2009-10-01 15:56:36 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								}
							 
						 
					
						
							
								
									
										
										
										
											2009-08-24 03:26:13 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								{ $see-also "destructors"  } ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								ABOUT: "tools.destructors"