fix directory-entries so we can bootstrap again

2009-08-25 23:50:27 -05:00 · 2009-08-25 23:50:27 -05:00 · 5d574995e1
parent c81012bf92
commit 5d574995e1
1 changed files with 1 additions and 1 deletions
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@ -57,7 +57,7 @@ M: unix find-next-file ( DIR* -- byte-array )

 M: unix >directory-entry ( byte-array -- directory-entry )
    {
-        [ dirent-d_name utf8 alien>string ]
+        [ dirent-d_name underlying>> utf8 alien>string ]
        [ dirent-d_type dirent-type>file-type ]
    } cleave directory-entry boa ;