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

fix file-systems on mac

db4
Doug Coleman 2008-12-06 18:25:35 -06:00
parent 080cc92239
commit 45e428f186
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/io/unix/files/macosx/macosx.factor
View File

@ -13,7 +13,8 @@ M: macosx file-systems ( -- array )
f <void*> dup 0 getmntinfo64 dup io-error
[ *void* ] dip
"statfs64" heap-size [ * memory>byte-array ] keep group
[ [ new-file-system-info ] dip statfs>file-system-info ] map ;
[ statfs64-f_mntonname utf8 alien>string file-system-info ] map ;
! [ [ new-file-system-info ] dip statfs>file-system-info ] map ;
M: macosx new-file-system-info macosx-file-system-info new ;