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

db4
Slava Pestov 2008-11-06 10:44:06 -06:00
parent 9366ad650d
commit d2b2cda596
1 changed files with 1 additions and 1 deletions
core/generic/standard/engines/tag

View File

@ -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