steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unix.stat: Bugfix

db4
Eduardo Cavazos 2008-05-13 14:14:27 -05:00
parent cdf99ea8f0
commit dc2898b3cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/unix/stat/stat.factor
View File

@ -1,6 +1,6 @@
USING: kernel system combinators alien.syntax alien.c-types USING: kernel system combinators alien.syntax alien.c-types
math io.unix.backend vocabs.loader ; math io.unix.backend vocabs.loader unix ;
IN: unix.stat IN: unix.stat
@ -67,5 +67,5 @@ FUNCTION: int mkdir ( char* path, mode_t mode ) ;
: link-status ( pathname -- stat ) : link-status ( pathname -- stat )
"stat" <c-object> dup >r "stat" <c-object> dup >r
[ lstat ] unix-system-call [ lstat ] unix-system-call drop
r> ; r> ;