From 8a9a14dca0e4129006b8164125abe4dd70d4f0ea Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 7 Nov 2019 13:57:34 -0500
Subject: [PATCH] Remove unused parameter

---
 libs/cyclone/concurrent.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libs/cyclone/concurrent.sld b/libs/cyclone/concurrent.sld
index 13837836..ef5b9760 100644
--- a/libs/cyclone/concurrent.sld
+++ b/libs/cyclone/concurrent.sld
@@ -508,7 +508,7 @@
         ))))
 
 (define (make-thread-pool size . opts)
-  (let ((tp (%make-thread-pool (make-shared-queue) '() size))
+  (let ((tp (%make-thread-pool (make-shared-queue) '()))
         (handler (if (and (pair? opts)
                           (procedure? (car opts)))
                      (car opts)