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

io.files.info.unix.linux: cleanup stack effects.

db4
John Benediktsson 2014-02-27 15:26:38 -08:00
parent 13a84d1ff1
commit 332fc7bc1a
1 changed files with 2 additions and 2 deletions
basis/io/files/info/unix/linux

4
basis/io/files/info/unix/linux/linux.factor
View File

@ -14,7 +14,7 @@ namelen ;
M: linux new-file-system-info linux-file-system-info new ;
M: linux file-system-statfs ( path -- byte-array )
M: linux file-system-statfs ( path -- statfs )
\ statfs64 <struct> [ statfs64 io-error ] keep ;
M: linux statfs>file-system-info ( file-system-info statfs -- file-system-info' )
@ -32,7 +32,7 @@ M: linux statfs>file-system-info ( file-system-info statfs -- file-system-info'
! [ statfs64-f_spare >>spare ]
} cleave ;
M: linux file-system-statvfs ( path -- byte-array )
M: linux file-system-statvfs ( path -- statvfs )
\ statvfs64 <struct> [ statvfs64 io-error ] keep ;
M: linux statvfs>file-system-info ( file-system-info statfs -- file-system-info' )