From 0ef5826b860eefb1608b34c472153259a1d7341c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Mon, 11 May 2009 22:03:07 -0500
Subject: [PATCH] remove the rest of the unportable fields from dirent for now

---
 basis/io/directories/unix/unix.factor | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index 510c1cbdfa..b8b781ec12 100644
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -55,15 +55,11 @@ M: unix find-next-file ( DIR* -- byte-array )
         [ drop +unknown+ ]
     } case ;
 
-TUPLE: unix-directory-entry < directory-entry ino reclen ;
-
 M: unix >directory-entry ( byte-array -- directory-entry )
     {
         [ dirent-d_name utf8 alien>string ]
         [ dirent-d_type dirent-type>file-type ]
-        [ dirent-d_ino ]
-        [ dirent-d_reclen ]
-    } cleave unix-directory-entry boa ;
+    } cleave directory-entry boa ;
 
 M: unix (directory-entries) ( path -- seq )
     [