From 332fc7bc1aec9bfefba3acdf0849c699646bc817 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 27 Feb 2014 15:26:38 -0800 Subject: [PATCH] io.files.info.unix.linux: cleanup stack effects. --- basis/io/files/info/unix/linux/linux.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/files/info/unix/linux/linux.factor b/basis/io/files/info/unix/linux/linux.factor index bf7c0905f5..21c784629e 100644 --- a/basis/io/files/info/unix/linux/linux.factor +++ b/basis/io/files/info/unix/linux/linux.factor @@ -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 [ 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 [ statvfs64 io-error ] keep ; M: linux statvfs>file-system-info ( file-system-info statfs -- file-system-info' )