From d7272871fe2965a1112601cf10de70b224e9f6b4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 17 Apr 2008 04:14:55 -0500
Subject: [PATCH] Remove commented out code

---
 core/generic/standard/engines/tuple/tuple.factor | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/core/generic/standard/engines/tuple/tuple.factor b/core/generic/standard/engines/tuple/tuple.factor
index 775428e183..7639d1d499 100644
--- a/core/generic/standard/engines/tuple/tuple.factor
+++ b/core/generic/standard/engines/tuple/tuple.factor
@@ -30,14 +30,7 @@ TUPLE: tuple-dispatch-engine echelons ;
 
 : <tuple-dispatch-engine> ( methods -- engine )
     echelon-sort
-    [
-        ! over zero? [
-        !     dup assoc-empty?
-        !     [ drop f ] [ values first ] if
-        ! ] [
-            dupd <echelon-dispatch-engine>
-        ! ] if
-    ] assoc-map ! [ nip ] assoc-subset
+    [ dupd <echelon-dispatch-engine> ] assoc-map
     \ tuple-dispatch-engine boa ;
 
 : convert-tuple-methods ( assoc -- assoc' )