Sort methods by tag, this speeds up >fixnum in the common case where the input is a fixnum
parent
9366ad650d
commit
d2b2cda596
core/generic/standard/engines/tag
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue