From 94d9e9a4ca61c54c011b019657da17a63e632446 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 23 Sep 2016 23:42:15 -0400
Subject: [PATCH] Fix socket-merge-flags

---
 srfi/106.sld | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/srfi/106.sld b/srfi/106.sld
index ce0341dc..43274268 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -106,14 +106,15 @@
         freeaddrinfo(servinfo); // all done with this structure
         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)))))
+              (cdr flags))
+            result)))
 
     (define-c num-or
       "(void *data, int argc, closure _, object k, object n1, object n2)"