Using "same?" in more places.

[factor.git] / extra / units / units.factor

diff --git a/extra/units/units.factor b/extra/units/units.factor
index a293d79f78cc3c962e7cbc85e508bb3699da35f5..90eea34215aa287f4902d30e7e9a5b57f73134bb 100644 (file)
--- a/extra/units/units.factor
+++ b/extra/units/units.factor
@@ -36,7 +36,7 @@ M: dimensions-not-equal summary drop "Dimensions do not match" ;
     [ top>> ] [ bot>> ] bi ;
 
 : check-dimensions ( d d -- )
-    [ dimensions 2array ] bi@ =
+    [ dimensions 2array ] same?
     [ dimensions-not-equal ] unless ;
 
 : 2values ( dim dim -- val val ) [ value>> ] bi@ ;