Using "same?" in more places.

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 83c8fb41a6de3f4cbe217ca90fcc0f2f870cb9cc..64401816220a1f88fe90bae3c6d763c91e7fc01c 100755 (executable)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -54,7 +54,7 @@ M: alien equal?
         2dup [ expired? ] either? [
             [ expired? ] both?
         ] [
-            [ alien-address ] bi@ =
+            [ alien-address ] same?
         ] if
     ] [
         2drop f