From c908bd3868ab3bd466768219905b70bba491e386 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 26 Aug 2009 09:28:10 -0500
Subject: [PATCH] windows.ole32 guid functions don't need to box the
 byte-arrays themselves anymore

---
 basis/windows/ole32/ole32.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
index d6a08325d9..639a9ba637 100755
--- a/basis/windows/ole32/ole32.factor
+++ b/basis/windows/ole32/ole32.factor
@@ -148,7 +148,7 @@ TUPLE: ole32-error code message ;
             [ ]
         } 2cleave
 
-        GUID-Data4 8 <direct-uchar-array> {
+        GUID-Data4 {
             [ 20 22 0 (guid-byte>guid) ]
             [ 22 24 1 (guid-byte>guid) ]
 
@@ -175,7 +175,7 @@ TUPLE: ole32-error code message ;
             [ [ GUID-Data3 ] 4 (guid-section%) "-" % ]
             [ ]
         } cleave
-        GUID-Data4 8 <direct-uchar-array> {
+        GUID-Data4 {
             [ 0 (guid-byte%) ]
             [ 1 (guid-byte%) "-" % ]
             [ 2 (guid-byte%) ]