unix.stat: add lstat*

2008-03-06 12:04:20 -06:00 · 2008-03-06 12:04:20 -06:00 · 9aa6219759
parent bff5d2af6d
commit 9aa6219759
1 changed files with 5 additions and 0 deletions
--- a/extra/unix/stat/stat.factor
+++ b/extra/unix/stat/stat.factor
@ -74,3 +74,8 @@ FUNCTION: int mkdir ( char* path, mode_t mode ) ;
  "stat" <c-object> dup >r
    stat check-status
  r> ;
+
+: lstat* ( pathname -- stat )
+  "stat" <c-object> dup >r
+    lstat check-status
+  r> ;