]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/ui/render/test/test.factor
Using "same?" in more places.
[factor.git] / extra / ui / render / test / test.factor
index ca7c60e4d68f548b95f387aeed613e4412f4a9d9..209230e4514d28ac4d4c6c278b94b9984e376178 100644 (file)
@@ -27,7 +27,7 @@ SYMBOL: render-output
     [ 10 /i ] map ;
 
 : bitmap= ( bitmap1 bitmap2 -- ? )
-    [ bitmap>> twiddle ] bi@ = ;
+    [ bitmap>> twiddle ] same? ;
 
 : check-rendering ( gadget -- )
     screenshot