Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix socket-merge-flags

Browse source
This commit is contained in:
Justin Ethier 2016-09-23 23:42:15 -04:00
parent b9d76a32bc
commit 94d9e9a4ca
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
srfi/106.sld
View file

@ -106,14 +106,15 @@
freeaddrinfo(servinfo); // all done with this structure freeaddrinfo(servinfo); // all done with this structure
return_closcall1(data, k, obj_int2obj(sockfd)); ") return_closcall1(data, k, obj_int2obj(sockfd)); ")
(define (socket-merge-flags flags) (define (socket-merge-flags . flags)
(if (null? flags) (if (null? flags)
0 0
(let ((result (car flags))) (let ((result (car flags)))
(for-each (for-each
(lambda (flag) (lambda (flag)
(set! result (num-or result flag))) (set! result (num-or result flag)))
(cdr flags))))) (cdr flags))
result)))
(define-c num-or (define-c num-or
"(void *data, int argc, closure _, object k, object n1, object n2)" "(void *data, int argc, closure _, object k, object n1, object n2)"