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

don't hash-swap every time

cvs
Doug Coleman 2005-11-28 23:10:22 +00:00
parent a0fa2d3b6e
commit ac86dbef35
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/aim/aim.factor
View File

@ -97,7 +97,8 @@ H{
{ "Add-Ins" HEX: 094613474c7f11d18222444553540000 } { "Add-Ins" HEX: 094613474c7f11d18222444553540000 }
} ; } ;
: capability-values capability-names hash-swap ; SYMBOL: capability-names-hash-swapped
: capability-values capability-names-hash-swapped get ;
: capability-abbrevs : capability-abbrevs
H{ H{
@ -149,6 +150,7 @@ H{
H{ } clone banned-hash-id set H{ } clone banned-hash-id set
<queue> modify-queue set <queue> modify-queue set
HEX: 7fff random-int seq-num set HEX: 7fff random-int seq-num set
capability-names hash-swap capability-names-hash-swapped set
1 stage-num set ; 1 stage-num set ;
: prepend-aim-protocol ( data -- ) : prepend-aim-protocol ( data -- )