From a26f7ab0fdd7f4665db7ffbf3dd9c00a72460001 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 24 Sep 2016 00:51:43 -0400
Subject: [PATCH] Added address-family

---
 srfi/106.sld | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/srfi/106.sld b/srfi/106.sld
index 1f516458..eda62d12 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -106,6 +106,14 @@
         freeaddrinfo(servinfo); // all done with this structure
         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)
       (if (null? flags) 
           0