From 8834f8e041d22967ac6e7ad48badc597b61ca8c4 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Wed, 3 Dec 2008 06:52:31 -0600
Subject: [PATCH] Loosen type on direct arrays since we want to use them on
 displaced aliens too

---
 basis/specialized-arrays/direct/functor/functor.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 basis/specialized-arrays/direct/functor/functor.factor

diff --git a/basis/specialized-arrays/direct/functor/functor.factor b/basis/specialized-arrays/direct/functor/functor.factor
old mode 100644
new mode 100755
index ed8b28c8a3..2cde26b731
--- a/basis/specialized-arrays/direct/functor/functor.factor
+++ b/basis/specialized-arrays/direct/functor/functor.factor
@@ -20,7 +20,7 @@ SET-NTH [ T dup c-setter array-accessor ]
 WHERE
 
 TUPLE: A
-{ underlying simple-alien read-only }
+{ underlying alien read-only }
 { length fixnum read-only } ;
 
 : <A> ( alien len -- direct-array ) A boa ; inline