From 0d5ed7e98239648e467bfe81e05d183b588b49b9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Mon, 25 May 2009 19:00:18 -0500
Subject: [PATCH] remove duplicate definition of last

---
 extra/adsoda/adsoda.factor | 1 -
 1 file changed, 1 deletion(-)

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