Remove unused parameter

This commit is contained in:
Justin Ethier 2019-11-07 13:57:34 -05:00
parent debbde6849
commit 8a9a14dca0

View file

@ -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)