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

Bugfix: some FAMILY: 1 OPCODE: f packets have extra information. (if snac flags > 0?)

cvs
Doug Coleman 2005-10-17 23:35:51 +00:00
parent e638d7abe9
commit fe8ea12043
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/aim/aim.factor
View File

@ -373,6 +373,12 @@ M: object get-banned ( name -- <buddy> )
] unless ; ] unless ;
: handle-online-info : handle-online-info
snac-flags get 32768 = [
head-short drop
head-short drop
head-short drop
head-short drop
] when
(handle-online-info) (handle-online-info)
; FAMILY: 1 OPCODE: f ; FAMILY: 1 OPCODE: f