Using "same?" in more places.

[factor.git] / core / quotations / quotations.factor

diff --git a/core/quotations/quotations.factor b/core/quotations/quotations.factor
index 2af94159f831ddb598a183ee0000e889187a9c87..9b85289bd69deaf56e2447b07bcf717f5832f690 100644 (file)
--- a/core/quotations/quotations.factor
+++ b/core/quotations/quotations.factor
@@ -22,7 +22,7 @@ M: curry call uncurry call ;
 M: compose call uncompose [ call ] dip call ;
 
 M: wrapper equal?
-    over wrapper? [ [ wrapped>> ] bi@ = ] [ 2drop f ] if ;
+    over wrapper? [ [ wrapped>> ] same? ] [ 2drop f ] if ;
 
 UNION: callable quotation curry compose ;