steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/generic/standard/engines/tag/tag.factor
View File

@ -27,7 +27,7 @@ M: lo-tag-dispatch-engine engine>quot
[ >r lo-tag-number r> ] assoc-map [ >r lo-tag-number r> ] assoc-map
[ [
picker % [ tag ] % [ picker % [ tag ] % [
! >alist sort-keys reverse >alist sort-keys reverse
linear-dispatch-quot linear-dispatch-quot
] [ ] [
num-tags get direct-dispatch-quot num-tags get direct-dispatch-quot