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