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