Using "same?" in more places.

[factor.git] / extra / math / extras / extras.factor

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 812de63c47350c8ab6b444923ebe56e89d89fabb..77c301e6f508664be135ba5950c014a87e60f52d 100644 (file)
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -60,7 +60,7 @@ PRIVATE>
 
 : mod' ( x y -- n )
     [ mod ] keep over zero? [ drop ] [
-        2dup [ sgn ] bi@ = [ drop ] [ + ] if
+        2dup [ sgn ] same? [ drop ] [ + ] if
     ] if ;
 
 PRIVATE>