Using "same?" in more places.

[factor.git] / basis / ui / gadgets / buttons / buttons.factor

diff --git a/basis/ui/gadgets/buttons/buttons.factor b/basis/ui/gadgets/buttons/buttons.factor
index 1bcd8a1654a6b79fa2eab54a16abf83f552b6e37..dbf14f485f8b650eedf41aa94ad30b3b187bbdf5 100644 (file)
--- a/basis/ui/gadgets/buttons/buttons.factor
+++ b/basis/ui/gadgets/buttons/buttons.factor
@@ -218,7 +218,7 @@ TUPLE: radio-control < button value ;
         align-left ; inline
 
 M: radio-control model-changed
-    2dup [ value>> ] bi@ = >>selected? relayout-1 drop ;
+    2dup [ value>> ] same? >>selected? relayout-1 drop ;
 
 :: <radio-controls> ( model assoc parent quot: ( value model label -- gadget ) -- parent )
     parent assoc [ model swap quot call add-gadget ] assoc-each ; inline