From d2b2cda596e542c6c23cde8557a4c982005ef29e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 6 Nov 2008 10:44:06 -0600
Subject: [PATCH] Sort methods by tag, this speeds up >fixnum in the common
 case where the input is a fixnum

---
 core/generic/standard/engines/tag/tag.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/generic/standard/engines/tag/tag.factor b/core/generic/standard/engines/tag/tag.factor
index c65726260c..87e2f1c9b1 100644
--- a/core/generic/standard/engines/tag/tag.factor
+++ b/core/generic/standard/engines/tag/tag.factor
@@ -27,7 +27,7 @@ M: lo-tag-dispatch-engine engine>quot
     [ >r lo-tag-number r> ] assoc-map
     [
         picker % [ tag ] % [
-            ! >alist sort-keys reverse
+            >alist sort-keys reverse
             linear-dispatch-quot
         ] [
             num-tags get direct-dispatch-quot