remove duplicate definition of last

2009-05-25 19:00:18 -05:00 · 2009-05-25 19:00:18 -05:00 · 0d5ed7e982
parent 04c6e07678
commit 0d5ed7e982
1 changed files with 0 additions and 1 deletions
--- 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