diff --git a/extra/adsoda/adsoda.factor b/extra/adsoda/adsoda.factor
index 4042528eba..c659e109ce 100755
--- 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
 
 : dimension ( array -- x )      length 1- ; inline 
-: last ( seq -- x )           [ dimension ] [ nth ] bi ; inline
 : change-last ( seq quot -- ) 
     [ [ dimension ] keep ] dip change-nth  ; inline