Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-09-23 22:50:15 -04:00
parent e51092c8c1
commit b9d76a32bc
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
srfi/106.sld
View file

@ -107,8 +107,17 @@
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)
0
(let ((result (car flags)))
(for-each
(lambda (flag)
(set! result (num-or result flag)))
(cdr flags)))))
(define-c num-or
"(void *data, int argc, closure _, object k, object n1, object n2)"
" return_closcall1(data, k, Cyc_bit_or(data, n1, n2));")
;(define (socket-purge-flags flags) ;(define (socket-purge-flags flags)
;) ;)