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

Added address-family

Browse source
This commit is contained in:
Justin Ethier 2016-09-24 00:51:43 -04:00
parent 8fb892a131
commit a26f7ab0fd
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
srfi/106.sld
View file

@ -106,6 +106,14 @@
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-syntax address-family
(er-macro-transformer
(lambda (expr rename compare)
(case (cadr expr)
((inet) '*af-inet*)
((inet6) '*af-inet6*)
(else '*af-unspec*)))))
(define (socket-merge-flags . flags) (define (socket-merge-flags . flags)
(if (null? flags) (if (null? flags)
0 0