escape the class name in io.files.info
parent
d8e10a691d
commit
de94e49f06
|
@ -47,6 +47,6 @@ M: openbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-in
|
|||
|
||||
M: openbsd file-systems ( -- seq )
|
||||
f 0 0 getfsstat dup io-error
|
||||
statfs <c-type-array> dup dup length 0 getfsstat io-error
|
||||
statfs heap-size group
|
||||
\ statfs <c-type-array> dup dup length 0 getfsstat io-error
|
||||
\ statfs heap-size group
|
||||
[ f_mntonname>> alien>native-string file-system-info ] map ;
|
||||
|
|
Loading…
Reference in New Issue