FUNCTION: int lstat64 ( c-string pathname, stat* buf ) ;
FUNCTION: int fstat64 ( int fd, stat* buf ) ;
-: stat ( path buf -- n ) stat64 ;
+: stat-func ( path buf -- n ) stat64 ;
: lstat ( path buf -- n ) lstat64 ;
: fstat ( fd buf -- n ) fstat64 ;
} case >>
: file-status ( pathname -- stat )
- \ stat <struct> [ [ stat ] unix-system-call drop ] keep ;
+ \ stat <struct> [ [ stat-func ] unix-system-call drop ] keep ;
: link-status ( pathname -- stat )
\ stat <struct> [ [ lstat ] unix-system-call drop ] keep ;