clean up contrib/units

diff --git a/contrib/units/dimensioned.factor b/contrib/units/dimensioned.factor
index e6116b6277163b50121b6ca81c3b88da07656c13..5baa03bcb4b234ceccb2afa448ce917e9c9527f1 100644 (file)
--- a/contrib/units/dimensioned.factor
+++ b/contrib/units/dimensioned.factor
@@ -13,12 +13,7 @@ C: dimensioned
     [ set-dimensioned-value ] keep ;
 
 : remove-one ( obj seq -- seq )
-    [ index ] keep over -1 = [
-        drop
-    ] [
-        [ 0 -rot <slice> ] 2keep
-        >r 1+ r> [ length ] keep <slice> append 
-    ] if ;
+    [ index ] keep over -1 = [ 2drop ] [ remove-nth ] if ;
 
 : dimensions ( dimensioned -- top bot )
     dup >r dimensioned-top r> dimensioned-bot ;