Sort methods by tag, this speeds up >fixnum in the common case where the input is a fixnum

2008-11-06 10:44:06 -06:00 · 2008-11-06 10:44:06 -06:00 · d2b2cda596
parent 9366ad650d
commit d2b2cda596
1 changed files with 1 additions and 1 deletions
--- 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