remove duplicate definition of last

diff --git a/extra/adsoda/adsoda.factor b/extra/adsoda/adsoda.factor
index 4042528eba3b5f5201bebdb69cc6f7082ab0b9b1..c659e109ce3715d9f99f2184d935b47c633a7999 100755 (executable)
--- a/extra/adsoda/adsoda.factor
+++ b/extra/adsoda/adsoda.factor
@@ -58,7 +58,6 @@ t to: remove-hidden-solids?
 : with-pv ( i quot -- ) [ swap >pv call ] with-scope  ; inline\r
 \r
 : dimension ( array -- x )      length 1- ; inline \r
-: last ( seq -- x )           [ dimension ] [ nth ] bi ; inline\r
 : change-last ( seq quot -- ) \r
     [ [ dimension ] keep ] dip change-nth  ; inline\r
 \r