Using "same?" in more places.

[factor.git] / unmaintained / adsoda / adsoda.factor

diff --git a/unmaintained/adsoda/adsoda.factor b/unmaintained/adsoda/adsoda.factor
index a89c4880e1309d38375a391d3e5c1a7a3ed11b24..ed6dfe02c80b61a3f846268fc20d995e220bf374 100644 (file)
--- a/unmaintained/adsoda/adsoda.factor
+++ b/unmaintained/adsoda/adsoda.factor
@@ -440,7 +440,7 @@ TUPLE: space name dimension solids ambient-color lights ;
 \r
 : get-silhouette ( solid -- silhouette )    \r
     silhouettes>> pv> swap nth ;\r
-: solid= ( solid solid -- ? )            [ corners>> ]  bi@ = ;\r
+: solid= ( solid solid -- ? )            [ corners>> ]  same? ;\r
 \r
 : space-apply ( space m quot -- space ) \r
         curry [ map ] curry [ dup solids>> ] dip\r