From f70325a8c253bfa51f4875aadd8376b328733b3d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 29 Mar 2013 11:36:13 -0700
Subject: [PATCH] unix: use byte-vectors here.

---
 basis/unix/unix.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor
index 3ac845aab4..80e0dd2c9b 100644
--- a/basis/unix/unix.factor
+++ b/basis/unix/unix.factor
@@ -2,7 +2,7 @@
 ! Copyright (C) 2008 Eduardo Cavazos.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien alien.c-types alien.libraries
-alien.syntax byte-arrays classes.struct combinators
+alien.syntax byte-vectors classes.struct combinators
 combinators.short-circuit combinators.smart continuations
 generalizations io kernel libc locals macros math namespaces
 sequences sequences.generalizations stack-checker strings system
@@ -67,10 +67,10 @@ M: unix open-file [ open ] unix-system-call ;
         [ utime ] unix-system-call drop ;
 
 : read-symbolic-link ( path -- path )
-    PATH_MAX <byte-array> dup [
-        PATH_MAX
+    PATH_MAX <byte-vector> [
+        underlying>> PATH_MAX
         [ readlink ] unix-system-call
-    ] dip swap head-slice >string ;
+    ] keep swap >>length >string ;
 
 : unlink-file ( path -- ) [ unlink ] unix-system-call drop ;