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 )
|
M: openbsd file-systems ( -- seq )
|
||||||
f 0 0 getfsstat dup io-error
|
f 0 0 getfsstat dup io-error
|
||||||
statfs <c-type-array> dup dup length 0 getfsstat io-error
|
\ statfs <c-type-array> dup dup length 0 getfsstat io-error
|
||||||
statfs heap-size group
|
\ statfs heap-size group
|
||||||
[ f_mntonname>> alien>native-string file-system-info ] map ;
|
[ f_mntonname>> alien>native-string file-system-info ] map ;
|
||||||
|
|
Loading…
Reference in New Issue