new accessors
							parent
							
								
									313b68f600
								
							
						
					
					
						commit
						922e1f4371
					
				| 
						 | 
				
			
			@ -324,7 +324,7 @@ TUPLE: pathname string ;
 | 
			
		|||
 | 
			
		||||
C: <pathname> pathname
 | 
			
		||||
 | 
			
		||||
M: pathname <=> [ pathname-string ] compare ;
 | 
			
		||||
M: pathname <=> [ string>> ] compare ;
 | 
			
		||||
 | 
			
		||||
! Home directory
 | 
			
		||||
HOOK: home os ( -- dir )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue