Using "same?" in more places.

[factor.git] / basis / windows / ole32 / ole32.factor

diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
index abf255d4d0ff03c2ea90c8ac661edb51459b7a11..e284108c67586f06f165f04ad19a96299dea9a75 100644 (file)
--- a/basis/windows/ole32/ole32.factor
+++ b/basis/windows/ole32/ole32.factor
@@ -129,7 +129,7 @@ TUPLE: ole32-error code message ;
     f OleInitialize check-ole32-error ;
 
 : guid= ( a b -- ? )
-    [ 16 memory>byte-array ] bi@ = ;
+    [ 16 memory>byte-array ] same? ;
 
 CONSTANT: GUID-STRING-LENGTH
     $[ "{01234567-89ab-cdef-0123-456789abcdef}" length ]