new accessors

2008-08-29 17:09:19 -05:00 · 2008-08-29 17:09:19 -05:00 · 922e1f4371
parent 313b68f600
commit 922e1f4371
1 changed files with 1 additions and 1 deletions
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -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 )